Проверьте 11 класс

[11klass]

program p1;
var i,max:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(76)-10;
writeln(a[i]);
end;
max:=a[i];
for i:=1 to 10 do
begin 
if max<a[i] then
max:=a[i]
else a[i]:=0;
end;
writeln ('max=',max);
writeln (a[i]);
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

во-первых, нужно писать задание.
во-вторых, если это программа поиска максимума в массиве, то она с ошибками.

1)

max:=a[i];

неверно. после цикла for переменная i может иметь значение 0 или 11 или вообще неопределённое значение!!
нужно просто первый элемент взять как максимальный:

max:=a[1];

2) грубая ошибка. Вы зачем обнуляете переменную max?!!!
так не надо делать!!!

  max:=a[1];
  for i:=1 to 10 do
  begin 
     if max<a[i] then max:=a[i];
  end;

ну begin / end в данном случае можно убрать, раз в цикле всего один оператор, то они значения не имеют (но это не ошибка, просто лишний, бессмысленный код).