Kathriril
4 год назад
НЕLP. Напишите программу по поиску наименьшего элемента в массиве (массив заполнить случайными числами из диапазона от -5 до 44)
ОТВЕТЫ
Лавр
Oct 24, 2020
var
arr: array[1..20] of integer;
m: integer := 45;
begin
for var k := 1 to 20 do
begin
arr[k] := random(49) - 5;
if arr[k] < m then m := arr[k];
end;
write('Исходный массив: ');
for var k := 1 to 20 do
begin
write(arr[k], ' ');
end;
writeln;
write('Наименьшее число массива: ', m);
end.
571
Смежные вопросы: