Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.