Cоздать программу поиска минимального значения в массиве из 7 целых чисел/
Cоздать программу поиска минимального значения в массиве из 7 целых чисел/
Ответ(ы) на вопрос:
program fofgogjoj;
const n=7;
var
a:array[1..n] of integer;
min,i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(20);
Write(a[i],' ');
end;
min:=a[1];
for i:=2 to n do
if a[i]
Не нашли ответ?
Похожие вопросы