Помогите мне с информатикой задачей. Задача ( Надо вывести из 10 чисел меньшее через массив).

1

Ответы и объяснения

2014-03-10T21:24:51+04:00
Uses crt; 
var  a:array [1..10] of integer;
 i, min: integer;
begin  for i:=1 to 10 do  
  begin   
     a[i]:=random(100);   
     writeln(a[i],' '); 
     writeln; 
  end; 
 min:=a[1]; 
 for i:=1 to 10 do    
 if a[i]< min then     min:=a[i]; 
 write('min=',min); 
gotoxy(1,23);
end.