Информатика

Лела

7 сентября, 16:42

Помогите найти ошибку в коде (синтаксическую) ((

var i, max, min, imax, imin, sum, kol:longint;

a:array [1 ... 100000] of longint;

begin

i:=0;

max:=0;

min:=maxint;

sum:=0;

kol:=0;

repeat

i:=i+1;

readln (a[i]) ;

while a[i]0 do begin

if a[i] mod 2=0 then

begin

kol:=kol+1;

sum:=sum+a[i];

if a[i]>max then

begin

max:=a[i];

imax:=i;

end;

if a[i] begin

min:=a[i];

imin:=i;

end;

end;

end;

write ('Количество чисел:', kol,', сумма чисел:', sum,', максимальное из чисел: ', max,', номер максимального числа:', imax,', минимальное из чисел', min,', номер минимального числа:', imin) ;

end.