составить программу нахождения максимального элемента в массиве из 30 чисел

Question

Информатика

Оляша

13 апреля, 00:19

составить программу нахождения максимального элемента в массиве из 30 чисел

+2

Ответы (1)

Знаете ответ на вопрос?

Игорь · Answer 1

Эта автоматически тебе всё сделает.

Var i, n, max : Integer;

a : array [1 ... 30] of Integer;

begin

for i : = 1 to 30 do

begin

Write ('a[', i, ']=') ;

a[i]:=i+1;

if max
writeln (a[i]) ;

end;

writeln ('Максимальный элемент равен: ', max) ;

end.

Если нужно будет ввести последовательность с клавиатуры, то вот:

Var i, n, max : Integer;

a : array [1 ... 30] of Integer;

begin

for i : = 1 to 30 do

begin

Write ('a[', i, ']=') ;

ReadLn (a[i]) ;

if max
end;

writeln ('Максимальный элемент равен: ', max) ;

end.