Задача по Паскалю.Дан двумерный массив: a:array[1..5,1..5] of integer.Все нечётные столбцы сделать единичными,вывести ответ в виде таблицы.

1

Ответы и объяснения

2013-10-13T21:34:55+04:00
Var a:array[1..5,1..5] of integer; i,j:integer;
Begin
 randomize;
 for i:=1 to 5 do
   for j:=1 to 5 do a[i,j]:=random(9)+1;
 for j:=1 to 5 do
   for i:=1 to 5 do
     if (j mod 2)<>0 then a[i,j]:=1;
 for i:=1 to 5 do
   begin
    for j:=1 to 5 do write(a[i,j]:3);
    writeln;
   end;
End.