Question

Заполнить массив на 30 целочисленных элементов псевдослучайными значениями от -200 до 200, найти самое большое отрицательное число и самое маленькое положительное (Паскаль)

Answer 1

Program prog;
Uses crt;

var a: array [0..29] of integer;
    max, min, i: integer;
    
begin;
clrscr;
randomize;

max:=-201;
min:=201;

for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],'  ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;

writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.