Question

в двумерном массиве элементы второй строки заменить на ноль

Answer 1

USES CRT;
VAR A:array[1..5,1..5] of integer;   
        i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize; 
for i:=1 to 5 do   
   for j:=1 to 5 do     
      A[i,j]:=random(50);

  for i:=1 to 5 do    
     begin   
        for j:=1 to 5 do     
           Write(A[i,j]:2, '   ');   
        Writeln;   
     end;

   for j:=1 to 5 do   
      A[2,j]:=0;

    Writeln;
   
    for i:=1 to 5 do   
       begin   
          for j:=1 to 5 do     
             Write(A[i,j]:2, '   ');   
          Writeln;   
       end;

READLN;END.