Предмет: Информатика, автор: violjuc22

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

Ответы

Автор ответа: pacixor
0
//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.
Приложения:
Автор ответа: violjuc22
0
Огромное спасибо , вы не представляете как мне помогли :)
Похожие вопросы
Предмет: Математика, автор: Аноним
Предмет: Английский язык, автор: stuartdzia
Предмет: Математика, автор: Никита1244589
Предмет: Алгебра, автор: ведьмак4