Заполнить двумерный массив по правилу - Turbo Pascal (35293)

Формулировка задачи:

1. Заполните двумерный массив размерности n × n следующим образом: 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … … … … … … … Выведите результат на экран.

Код к задаче: «Заполнить двумерный массив по правилу - Turbo Pascal (35293)»

textual
var
  a: array[1..20,1..20] of integer;
  n,i,j: integer;
begin
  write('Введите размер массива n: ');
  readln(n);
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(j) then a[i,j]:=j
        else a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ