Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]>max then max:=a[i];
writeln('max=',max);
end.
Program math;
var
x, a, t : real;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
t := (sqrt((a-b)*(a-b))+4)/((a-2*b)+1);
writeln('t=', t:10:4);
end.
(12+18)+6=36 (учеников) 6А
Ответ: 36 учеников в 6А классе
512 байт если перевести будет 0.5 mb