Помогите с программой, желательно по Паскалю) ) Дано n чисел, найти среди них наименьшее.

Question

Анас Эль Сайед · Accepted Answer

var 
 n, m, v: integer; 
begin 
 write('количество чисел? '); 
 readln(n); 
 m := maxint; 
 write('числа? '); 
 while n > 0 do begin 
 read(v); 
 if (v < m) then m := v; 
 dec(n); 
 end; 
 writeln('наименьшее: ', m); 
end.

Ирина · Answer

program prog1; 
uses crt; 
 
var arr:array[1..100] of Real; 
n:Integer; 
i, iMin:Integer; 
arrMin:Real; 
begin 
ReadLn(n); {читаем кол-во элементов массива} 
for i:=1 to n do 
 ReadLn(arr); {читаем i-й элемент} 
arrMin:=arr[1]; 
iMin = 1; 
for i:=2 to n do 
begin 
 if (arr < arrMin) then 
 begin 
 arrMin:=arr; 
 iMin:=i; 
 end; 
end; 
WriteLn('Минимальное число = ', arrMin, ', в i-м элементе массива'); 
end.