Заполнить массив А определенным образом

@Bebebe · Регистрация: 09.09.2014

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

1. var A:array [1..10, 1..10] of byte;
Заполнить массив А следующим образом:
1 2 3 … 10
0 1 2 … 9
0 0 1 … 8
…
0 0 0 … 1

@FIL · 21.09.2014, 18:27

Комментарий модератора

Bebebe, одна тема - один вопрос.

@Joy · 21.09.2014, 19:39

Pascal

var
  a:array[1..10,1..10] of integer;
  i,j:integer;
 begin
for i:=0 to 9 do 
  for j:=1 to 10 do 
    if j-i<0 then A[i+1,j]:=0 else a[i+1,j]:=j-i;
for i:=1 to 10 do begin
  for j:=1 to 10 do 
    write(A[i,j],' ');
  writeln;
  end;
  readln;
  end.

@Bebebe 0 / 0 / 0 Регистрация: 09.09.2014 Сообщений: 27
		1
	Заполнить массив А определенным образом 21.09.2014, 17:57. Показов 692. Ответов 2 Метки нет (Все метки) 1. var A:array [1..10, 1..10] of byte; Заполнить массив А следующим образом: 1 2 3 … 10 0 1 2 … 9 0 0 1 … 8 … 0 0 0 … 1 0

	21.09.2014, 19:39