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 ;Beginclrscr;Randomize ;for i:=1 to 9 do beginfor j:=1 to 9 do beginD[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 beginWrite (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 beginIf 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.