Составить программу для поиска наименьшего элемента массива и элемента равного 70 (...

Question

Составить программу для поиска наименьшего элемента массива и элемента равного 70 ( массив размерностью 10, заполнен генератором случайных чисел до 100) на языке паскаль

Answer 1

var

 mas:array[1..10] of real;

 i:integer;

 min:real;

Begin

for i:=1 to 10 do begin

 mas[i]:=random(100);

 end;

 for i:= 1 to 10 do begin

 if (i = 1) or (mas[i] < min) then min:= mas[i];

 if mas[i] = 70 then write(70);

 end;

write(min);

end.