60 , паскаль! дан массив из 20 целых чисел. найти минимальный элемент массива.

fghtgxbvdrzra fghtgxbvdrzra    3   26.07.2019 15:20    4

Ответы
usereldoc9857 usereldoc9857  24.09.2020 23:26
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Writeln('min=',ArrRandom(20,10,99).Println.Min)
end.

Тестовое решение:
31 53 75 18 93 22 40 30 37 14 24 23 92 64 65 89 41 88 58 38
min=14
ПОКАЗАТЬ ОТВЕТЫ
Gulnarhidayetova Gulnarhidayetova  24.09.2020 23:26
Var a:array[1..20] of integer;
       i,min:integer;
begin
min:=100;
   for i:=1 to 20 do begin
         a[i]:=random[min];  
         write(a[i],'  ');
         if min<a[i] then min:=a[i];
  end;
writeln();
write('min = ', min);
readln();
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика