Найти наименьший элемент одномерного массива, используя три вида циклов

@Марк Северин · Регистрация: 17.12.2013

Author24 — интернет-сервис помощи студентам

массив из 10 чисел(задаваемых оператором). необходимо найти наименьший элемент массива.
ввод данных в массив с использованием циклической структуры цикл с предусловием (с оператором m[i]:=random(10)

при переборе данных необходимо использовать цикл с параметром
при организации перебора элементов массива использовать конструкцию

Pascal

if условие then
begin
..
..
end;

вывод элементов произвести с использованием цикла с постусловием

@Puporev · 19.03.2015, 19:10

Pascal

const n=10;
var m:array[1..n] of integer;
    i,mn:integer;
begin
randomize;
writeln(' ');
i:=1;
while i<=n do
 begin
  m[i]:=random(n);
  i:=i+1;
 end;
mn:=m[1];
for i:=2 to n do
if m[i]<mn then mn:=m[i];
i:=1;
repeat
  write(m[i]:3);
  i:=i+1;
until i>n;
writeln;
writeln('Минимум=',mn);
end.

	19.03.2015, 19:10

Опции темы