Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal (35290)

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

n 0 0 ... 0 0 0 0 n-1 0 ... 0 0 0 0 0 n-2 ... 0 0 0 . . . . . . . . . . . . . . . . . .. . . 0 0 0 ... 0 2 0 0 0 0 ... 0 0 1 Решите кто-нибуть пожалуйста очень нужно!!!

Код к задаче: «Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal (35290)»

textual
program 123;
uses crt;
var a:array[1..20,1..20]of byte;
    n,i,j:byte;
begin
clrscr;
write('n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=j then a[i,j]:=(n-i+1) else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln;
 end;
readkey;
 end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.733 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы