Сформировать квадратную матрицу по правилу

@Uni_programist · Регистрация: 11.08.2016

Author24 — интернет-сервис помощи студентам

Нужно написать программу на Pascal, которая выведет такую квадратную матрицу:
5 0 1 0 1
0 5 0 1 0
1 0 5 0 1
0 1 0 5 0
1 0 1 0 5
Или хотя бы пример какой нибудь (только без Random). Очень надо, а в интернете куча бесполезного кода. Есть моя собственная альтернатива, но все равно работает не так как надо:

Pascal

var
k: array [0..11] of char;
d: char;
c: integer;
begin 
for c := 0 to 11 do read (k[c]);
for c := 0 to 11 do write (k[c]:4);
readln
end.

Если быть более точным программа работает, но картина иная:
5 0 1

0 5 0

1 0
Помогите достроить её и расскажите, что здесь к чему?

@Puporev · 23.10.2016, 17:45

Pascal

var k: array [1..20,1..20] of byte;
    n,i,j:byte;
begin
write('n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i+j)mod 2=0 then k[i,j]:=1
    else k[i,j]:=0;
    if j=i then k[i,j]:=n;
    write (k[i,j]:4);
   end;
  writeln;
 end;
end.

	23.10.2016, 17:45

Опции темы