Заполнить двумерный массив по правилу

@fr8ak2 · Регистрация: 30.09.2015

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

Задача такого: (картинка предоставлена ниже)
6a. Создать программу, которая заполнит двухмерный массив с последующими значениями: 1,2,3,4,5... по вертикале.
6b. Создать программу, которая заполнит элементы массива с указанными значениями.

@Legolas · 01.10.2015, 04:14

6b

Pascal

c:= 0;
for a:=5 to 7 do
for y:=a downto 1 do
begin
 inc (c);
 x:=a-y+1;
 mas[x,y]:=c;
end;

@Puporev · 01.10.2015, 07:46

6а

Pascal

uses crt;
const n=10;
var a:array[1..n,1..n] of byte;
    i,j,k:byte;
begin
clrscr;
k:=0;
for j:=1 to n do
for i:=2 to n-1 do
if((j<i)and(j<n-i+1))or((j>i)and(j>n-i+1)) then
  begin
   inc(k);
   a[i,j]:=k;
  end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

6b

Pascal

const n=10;
var a:array[1..n,1..n] of byte;
    d,i,k:byte;
begin
clrscr;
k:=0;
for d:=n div 2 to n div 2+2 do //номера диагоналей, паралленльных побочной
for i:=d downto 1 do //заполняем снизу
  begin
   inc(k);
   a[i,d-i+1]:=k;
  end;
for i:=1 to n do
 begin
  for d:=1 to n do
  write(a[i,d]:3);
  writeln;
 end;
readln
end.

@fr8ak2 0 / 0 / 0 Регистрация: 30.09.2015 Сообщений: 11
		1
	Заполнить двумерный массив по правилу 30.09.2015, 23:32. Показов 1855. Ответов 2 Метки нет (Все метки) Задача такого: (картинка предоставлена ниже) 6a. Создать программу, которая заполнит двухмерный массив с последующими значениями: 1,2,3,4,5... по вертикале. 6b. Создать программу, которая заполнит элементы массива с указанными значениями. Миниатюры 0

	01.10.2015, 07:46

Заполнить двумерный массив по правилу

Решение