Ошибка "нельзя изменять значение переменной цикла внутри цикла" - Pascal ABC

Формулировка задачи:

пишет, что "нельзя изменять значение переменной цикла внутри этого цикла"
var a,c:array[1..3,1..4] of integer;
i,j:integer; min:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
begin
writeln('Введите значение a[',i,',',j,']');
readln(a[i,j]);
end;
begin
min:=a[3,1];
for j:=2 to 4 do
begin
if a[i,j]<min then
min:=a[i,j];
writeln('min=',min);
if min>4 then begin
for i:=1 to 3 do
for j:=1 to 4 do
c[i,j]:=a[i,j]+min;
end;
for i:=1 to 3 do
for j:=1 to 4 do
write('c[',i,',',j,']=',c[i,j],' ');
end;
end;
end.

Код к задаче: «Ошибка "нельзя изменять значение переменной цикла внутри цикла" - Pascal ABC»

textual
var a,c:array[1..3,1..4] of integer;
    i,j,min:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
 begin
  write('Введите значение a[',i,',',j,']');
  readln(a[i,j]);
 end;
min:=a[3,1];
for j:=2 to 4 do
if a[3,j]<min then min:=a[3,j];
writeln('min=',min);
if min>4 then
for i:=1 to 3 do
 begin
  for j:=1 to 4 do
  c[i,j]:=a[i,j]+min;
  writeln('c[',i,',',j,']=',c[i,j],' ');
 end;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.538 из 5


СДЕЛАЙТЕ РЕПОСТ