Question

Составить программу, которая будет вводить N чисел и искать максимальное число среди этих чисел.
1<=a[i], N<=100

Answer 1

const
n=100;
var
a:array[1..n] of integer;
max,i:integer;
begin
randomize;
for i:=1 to n do
begin
writeln(a[i]='');
readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
If a[i]>max then begin
max:=a[i];
end;
writeln;
writeln('Max=',max);
readln;
End.

Answer 2

Хотя, она скорее не ошибка, а описка.

Answer 3

Что же здесь я неправильно сделала?

Answer 4

Я же Вам направил решение на исправление, там в комментарии написано

Answer 5

max:=a[i]; перед for i:=2 to n do. Должно быть max:=a[1]

Answer 6

Спасибо Вам, сама не заметила, как перепутала