TYPE MISMATCH2

[desnet]

Помогите исправить ошибки
program klab_4;
var
i,min,j:integer;
a,sum,imin:array[1..6,1..8]of integer;
begin
writeln('massiv a:');
for i:=1 to 6 do
for i:=1 to 8 do
begin
a[i,j]:=-10+random(31);
write(a[i,j]:4);
end;
writeln;
min:= a[1,1];
for i:=1 to 6 do
for i:=1 to 8 do
if(min>=a[i,j])then min:=a[i,j];
imin:=i(ошибка type mismatch);
writeln('imin:=',imin);
writeln;
sum:=0;
for j:=1 to 8 do
sum:=sum+a[imin,j];
writeln('sum:=',sum);
readln;
end.

[Xardas]

Неправильно построены циклы: второй цикл должен идти по переменной j

for i:=1 to 6 do
 for j:=1 to 8 do

В этом фрагменте Вы, вероятно, забыли про begin...end

for i:=1 to 6 do
 for j:=1 to 8 do
 if(min>=a[i,j])then min:=a[i,j];
 imin:=i;
 writeln('imin:=',imin);
 writeln;

[desnet]

все исправил,все равно таже ошибка,в том же месте

[Mad_Cat]

аналогично

[desnet]

все отлично,спасибо большое!