Заполнить массив случайными числами от - 1000 до 1000, найти минимальное значение из трехзначных чисел.

Question

Информатика

Ульяныч

1 июля, 05:05

Заполнить массив случайными числами от - 1000 до 1000, найти минимальное значение из трехзначных чисел.

+2

Ответы (1)

Знаете ответ на вопрос?

Фадей · Answer 1

uses crt;

var a:array[1 ... 10] of integer;

var i, j, min:integer;

begin

writeln ('Массив: ') ;

for i:=1 to 10 do begin

a[i]:=random (1000 - (-1000) + 1) - 1000;

write (a[i]:5) ;

end;

writeln;

for i:=1 to 10 do begin

min:=a[i];

for j:=1 to 10 do begin

if a[j]
end;

end;

writeln ('Минимальное значение: ', min) ;

end.