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]
Не нашли ответ?
Ответить на вопрос
Похожие вопросы