Составьте программу формирования массива в Pascal Срочно!!! 1 2 3 4 n 0 2 3 4 n ...

July 2022 1 2 Report

Составьте программу формирования массива в Pascal Срочно!!!

1 2 3 4 n 0
2 3 4 n 0 0
3 4 n 0 0 0
4 n 0 0 0 0
n 0 0 0 0 0

Answers & Comments

petyaGavrikov

Verified answer

Const n=5;
var a:array[1..n,1..n+1] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n-i+1 do a[i,j]:=j+i-1;
for j:=n-i+2 to n+1 do a[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to n+1 do write(a[i,j]:2);
writeln;
end;
end.

Результат:
1 2 3 4 5 0
2 3 4 5 0 0
3 4 5 0 0 0
4 5 0 0 0 0
5 0 0 0 0 0

Dmitriy4737 Спасибо!

petyaGavrikov Пожалуйста.

dayu 80 ballov za 2 zadaniya po biologii no nuzhno reshit pravilnosami zadaniyaz

Answer

Dmitriy4737 June 2022 | 0 Ответы

sozdat massiv iz n vektorov vector3 znacheniya x y z randomyatsya v otrezke

Answer

Answers & Comments

Verified answer

dayu 80 ballov za 2 zadaniya po biologii no nuzhno reshit pravilnosami zadaniyaz

sozdat massiv iz n vektorov vector3 znacheniya x y z randomyatsya v otrezke

рекомендуемые вопросы

Helpful Links

Helpful Social