Составьте программу, которая заполняет массив a случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент массива и его индекс

лиод1 лиод1    1   10.07.2019 22:10    0

Ответы
popova2017 popova2017  03.10.2020 00:34
Var
a:array[1..100] of integer;
min, minz, i:integer;
Begin
randomize;
minz:=30;
for i:=1 to 10 do a[i]:=random(20)+1;
for i:=1 to 10 do 
if minz>a[i] then begin minz:=a[i]; min:=i; End;
for i:=1 to 10 do Write(a[i],' ');
Writeln();
Writeln(minz,' ',min);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика