Домашние задания: Информатика

Помогите пожалуйста решить задачу по информатике :)

нужно составить алгоритм и программу на Turbo Pascal, дан одномерный массив А из 30 элементов. найти наибольший элемент массива. вывести на экран исходный массив и найденный элемент
АБ
Айнагуль Бимуханова
171
Вопрос в том, что означает слово "дан" - ибо он может быть дан как константа (тогда где сам массив?), может быть введен вручную с клавиатуры и может быть сгенерирован автоматически при помощи генератора случайных чисел.

Итак, массив вводится вручную с клавиатуры (заполняется):
 Program P1; 

uses crt; 

const n=30; 

type mas=array [1..n] of real; 

var A: mas; 

    i: byte; 

    max: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры массив (элементы массива, только числа), после ввода каждого из элементов массива (числа) нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

for i:=1 to n do begin 

    write ('Введите ', i, '-й элемент массива: '); 

    readln (A[i]); 

    end; 

max:=A[1]; 

write ('Вы ввели массив:'); 

for i:=1 to n do write (' ', A[i]); 

writeln (' '); 

for i:=1 to n do if A[i]>max then max:=A[i]; 

writeln ('Наибольший элемент этого массива: ', max); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
2-ой вариант (здесь массив генерируется случайными числами):
 Program P1; 

uses crt; 

const n=30; 

type mas=array [1..n] of byte; 

var A: mas; 

    i, max: byte; 

begin 

clrscr; 

randomize; 

for i:=1 to n do A[i]:=random (101); 

max:=A[1]; 

write ('Был сгенерирован массив:'); 

for i:=1 to n do write (' ', A[i]); 

writeln (' '); 

for i:=1 to n do if A[i]>max then max:=A[i]; 

writeln ('Наибольший элемент этого массива: ', max); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
A)
Armani )
43 559
Лучший ответ
Пулод Кароев И все же я сторонник того, чтобы демонстрировать работу программы.
Прочитать - одно, увидеть - совсем другое дело. Как там в пословице: "Лучше один раз увидеть...."
Заказчик увидит, то ли делает программа. Если претензий нет, то, как говаривал мой друг Остап Бендер в "Золотом теленке" : "Граждане довольные расходятся по домам".
Вот работа 2 варианта.
Я бы на месте Заказчика предложил начинать вывод числовых элементов с новой строки (простой оператор WriteLn; :)))

Похожие вопросы