2. Найти наименьший элемент массива случайных чисел
2. Найти наименьший элемент массива случайных чисел
Ответ(ы) на вопрос:
Гость
var i,min:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to 10 do
if a[i]
Гость
Задачка, конечно, простейшая, но и на ней можно проследить состояние изучения программирования в наших школах.
{ 1. Borland (Turbo) Pascal 7.0, 1994г., статический массив }
uses Crt;
const
nn=1000;
var
i,n,mn:integer;
a:array[1..nn] of integer;
begin
Randomize;
ClrScr;
Write('n='); Read(n);
mn:=1000;
for i:=1 to n do begin
a[i]:=Random(199)-99;
Write(a[i],' ');
if a[i]
Не нашли ответ?
Похожие вопросы