Генерация двумерных массивов

@sveta 1985 · Регистрация: 05.10.2012

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

Составьте программу,генерирующую массив по заданному образцу
0 0 ...0 1
0 0 ...2 0
...........
0 n-1..0 0
n 0 ...0 0 n-четное

@Puporev · 29.03.2013, 16:35

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of byte;
    n,i,j:byte;
begin
clrscr;
repeat
write('Размер матрицы, четное число до ',nmax,' n=');
readln(n);
until (n in [2..nmax])and(n mod 2=0);
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=n-i+1 then a[i,j]:=i
    else a[i,j]:=0;
    write(a[i,j]:2)
   end;
  writeln
 end;
readln
end.

И зачем n-четное? И для нечетных точно также...

@sveta 1985 0 / 0 / 0 Регистрация: 05.10.2012 Сообщений: 31
		1
	Генерация двумерных массивов 29.03.2013, 14:42. Показов 1006. Ответов 1 Метки нет (Все метки) Составьте программу,генерирующую массив по заданному образцу 0 0 ...0 1 0 0 ...2 0 ........... 0 n-1..0 0 n 0 ...0 0 n-четное 0

	29.03.2013, 16:35

Генерация двумерных массивов

Решение