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

Question

Информатика

Екатеринка

8 февраля, 04:54

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

+4

Ответы (1)

Знаешь ответ?

Ларион · 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]0) then

min:=a[i];

end;

writeln;

writeln;

writeln ('max neg = ', max);

writeln ('min pos = ', min);

readln;

end.