написать программу вычисления наименьшего элемента массива.
Answers & Comments
GeorgeNewman
Для языка программирования: Turbo Pascal
program min; vara: array [1..10] of integer; i,p: byte;min: integer; beginwriteln('Массив:'); for i:=1 to 10 do begina[i]:=-20+random(80); write(a[i],' '); end; writeln(); min:=a[1]; for i:=1 to 10 do if (a[i] <= min) then beginmin:=a[i];p:=i; end; writeln('Минимальное число = ',min,' его порядковый номер = ',p); end.
Answers & Comments
program min;
vara: array [1..10] of integer;
i,p: byte;min: integer;
beginwriteln('Массив:');
for i:=1 to 10 do
begina[i]:=-20+random(80);
write(a[i],' ');
end;
writeln();
min:=a[1];
for i:=1 to 10 do
if (a[i] <= min) then
beginmin:=a[i];p:=i;
end;
writeln('Минимальное число = ',min,' его порядковый номер = ',p);
end.