Срочно! Помогите!
Известны баллы, полученные студентами за контрольную работу. Вычислить максимальный балл.
Написать программу в паскале АВС.NET

Program maxim;   
const n=15 {15 студентов};   
var a:array[1..n] of integer;       
i,max:integer;   
begin   
randomize;
for i:=1 to n do begin   
a[i]:=random(10){кол-во баллов до 15};   
write (a[i],  );   
end;   
max:=a[1];   
for i:=2 to n do begin   
if a[i]>max then max:=a[i];   
end;     
writeln;     
writeln (max);   
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.