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

104

371

Посмотреть ответы 2

Ответы на вопрос:

Semykina2003

Информатика

4,8(56 оценок)

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.