Как читать матрицу....

@MultiVan · Регистрация: 13.08.2011

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

Как читать матрицу вот таким образом

@Puporev · 12.02.2012, 12:08

Pascal

uses crt;
var n,i,j,l,k:integer;
    a:array[1..20,1..20]of integer;
begin
randomize;
clrscr;
repeat
write('n<=20 n=');
readln(n);
until n in [1..20];
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Вывод элементов по условию:');
For l:=1 to 2*n-1 do{количество диагоналей, параллелных побочной}
 begin
  if l>n then{выше диагонали}
   begin
    if not odd(l) then
    for i:=l-n+1 to n do write(a[i,l-i+1]:4)
    else
    for i:=n downto l-n+1 do write(a[i,l-i+1]:4);
   end
  else if l<=n then{ниже диагонали и на ней}
   begin
    if not odd(l) then
    for i:=1 to l do write(a[i,l-i+1]:4)
    else
    for i:=l downto 1 do write(a[i,l-i+1]:4);
   end;
 end;
readln
end.

@MultiVan 59 / 59 / 4 Регистрация: 13.08.2011 Сообщений: 165
		1
	Как читать матрицу.... 11.02.2012, 22:18. Показов 968. Ответов 1 Метки нет (Все метки) Как читать матрицу вот таким образом Миниатюры 0

	12.02.2012, 12:08

Как читать матрицу....

Решение