Program1.pas(17) : Нельзя изменять значение переменной цикла внутри этого циклаПомогите...

Question

Program1.pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла
Помогите исправить ошибку .
Program Lin_10;
uses crt ;
type mas = array [1..9,1..9] of integer ;
var D,b:mas;
i,j,t,min:integer ;
Begin
clrscr;
Randomize ;
for i:=1 to 9 do begin
for j:=1 to 9 do begin
D[i,j]:=random(30)-60;
Write(D[i,j]:4);
End;
Writeln;
Writeln(' Задача 10_1 ') ;
for i:=1 to 9 do
for j:=1 to 9 do begin
min:=D[i,j];
End;
If min>D[i,j] then min:=[i,j];
End;
Writeln ;
Writeln('Min=',min);
Writeln(' Задача 10_2 ');
for i:=1 to 9 do begin
for j:=1 to 9 do begin
If (D[i,j] mod 2) = 0 then
D[i,j]:=0 ;
Write(D[i,j]:4);
End; Writeln;
Writeln(' Задача 10_3 ');
t:=1;
for j:=1 to 9 do begin
i:=j;
B[t]:=D[i,j];
t:=t+1;
u:=t; End;
For t:=1 to u-5 do begin
Write (D[t]:4);
End;
Writeln;
Writeln(' Задача 10_4 ');
Writeln(' Задача 10_5 ');
sum:=0;
for i:=1 to 9 do
For j:=1 to 9 do begin
If D[i,j] mod 3 = 0 then
Sum:=sum+D[i,j];
End;
Write('sum=',sum);
Readln;
End;

---

Answer 1

Program Lin_10;
{uses crt ;}
const n = 9;
var D:array [1..n,1..n] of integer ;
  B:array[1..100] of integer;
  i,j,t,k:integer ;
  average:real;

Begin
  Writeln(' Задача 10 ') ;

  Randomize ;
  for i:=1 to n do begin
    for j:=1 to n do begin
      D[i,j]:=random(60)-30;
      Write(D[i,j]:4, ' ');
    End;
    Writeln;   
  end;

  Writeln(' Задача 10_1 ') ;

  average:=0;
  k:=0;
  for i := 1 to n do begin
    j := n+1-i;
    If D[i,j] > 0 then begin
      average :=average + D[i,j];
      k:=k+1;
    End;
  End;
  Writeln('average=',average/k);
  Writeln ;

  Writeln(' Задача 10_2 ');

  for i:=1 to n do begin
    for j:=1 to n do begin
      If D[i,j] < -5 then
        D[i,j]:=0 ;
      Write(D[i,j]:4);
    End;  
    Writeln;
  End;

  Writeln(' Задача 10_3 ');

  t:=0;
  for i:=1 to n do
    for j:=1 to n do
      If j mod 3=0 then begin
        t:=t+1;
        B[t]:=D[i,j];
        Write(B[t]:4);
      end;
 
  Writeln;
  Writeln(' Задача 10_4 ');   

  t:=0;
  for i:=1 to n do
    for j:=1 to n do
      If D[i,j] < 0 then
        t:=t+1;
  Writeln(t);
  Writeln;

  Writeln(' Задача 10_5 ');

  for i:=1 to n do begin
    t:=0;
    for j:=1 to n do
      If D[i,j] < 0 then
        t:=t+1;
    Writeln(i,' = ',t);
  End;  

  Readln;
End.

Comments

почистила, компилируется и выполняется. не уверенна что делает все что нужно потому что не знаю что нужно

---

Спасибо , в 10_4 Надо Определить количество отрицательных элементов в массиве

---

Если не сложно , помогите .

---

в каком именно масиве? D или В ?

---

выложи все условия плиз

---

хорошо , одну секунду :)

---

http://yadi.sk/d/IEpdwJxgSHuSc

---

почти полная переделка

---

Спасибо тебе огромное за помощь :)