Ответы
Ответ дал:
1
Делал в Pascal ABC.
var a:array of integer;
i,n,max:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=-100 + random(201);
if (i = 0) or (a[i] > max) then max:=a[i];
end;
writeln(a);
writeln('max = ',max);
end.
var a:array of integer;
i,n,max:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
a[i]:=-100 + random(201);
if (i = 0) or (a[i] > max) then max:=a[i];
end;
writeln(a);
writeln('max = ',max);
end.
Вас заинтересует
6 месяцев назад
6 месяцев назад
1 год назад
5 лет назад
5 лет назад
7 лет назад
7 лет назад