Задание:
Задача по Паскалю. Дан двумерный массив: a: array[1… 5,1… 5] of integer. Все нечетные столбцы сделать единичными, вывести ответ в видетаблицы.
Решение:
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.
Знаете другой ответ?