НЕLP. Напишите программу по поиску наименьшего элемента в массиве (массив заполнить случайными числами из диапазона от -5 до 44)
Ответы
Ответ дал:
0
//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)
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.
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.
Ответ дал:
0
СПАСИБО❤
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад