Program z6_2; uses crt; const n=6; var a:array[1..6]of real; i:integer; begin clrscr;...

Question

Program z6_2;
uses crt;
const n=6;
var a:array[1..6]of real;
i:integer;
begin
clrscr;
Writeln('введите элемент массива');
for i:=1 to 6 do readln (a[i]);
if min min:=a[i];
writeln ('min=',min:7:3);
Repeat until keypressed;
end.
Подскажите где ошибка В Pascal
Текст: Составить программу, которая выводит на экран минимальный элемент массива Х и его индекс Х={1, 3, 5, 2, -12, 0}.

Answer 1

Uses  crt;
var  a: array[1..6]of integer; 
 i, min: integer;
begin 
clrscr; 
min := maxInt; 
Writeln('введите элементы массива'); 
for i := 1 to 6 do  
      begin   
         readln(a[i]);   
         if  (min > a[i]) then min := a[i];  
      end; 
writeln('min=', min); 
repeat until keypressed;
end.