Question

Cоставить программу , которая формирует массив из 8 случайных целых чисел от -20 до 20 и осуществляет поиск минимального элемента .

Answer 1

//Pascal
var
  A: array[1..8] of integer;
  i: byte;
  Min: integer;
begin
randomize;
Min := 20;
for i := 1 to 8 do
begin
  A[i] := random(41)-20;
  if A[i] < Min then Min := A[i];
  write(A[i], ' ');
end;
writeln;
writeln('Минимальный элемент = ', Min);
end.

Answer 2

Огромное спасибо , вы не представляете как мне помогли :)