★Девочка не поливает цветы★
Все на рисунке во вложении.
Вытряхни пыль из пылесоса,выключи пылесос,собери пыль с ковра,включи пылесос.
А) при х=2 10 при х=7 10
б) при х=2 5 при х=7 10
Const n=10;
var i,b,max:integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
begin
a[i]:=random(1,50);
end;
writeln(a);
max:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i]
end;
writeln(a[1]);
writeln(a);
end.