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.

Answer 2

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

Answer 3

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

Answer 4

http://yadi.sk/d/IEpdwJxgSHuSc

Answer 5

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