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

Question

Информатика

Веруша

29 июля, 03:20

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

+3

Ответы (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.