1) Заполнить массив по последующему принципу: 1 1 1 1 10
1) Заполнить массив по последующему принципу: 1 1 1 1 10 1 1 1 10 0 1 1 10 0 0 1 10 0 0 0 10 0 0 0 0 2) Заполнить массив по последующему принципу: 21 22 23 24 25 16 17 18 19 20 11 12 13 14 15 6 7 8 9 10 1 2 3 4 5
Задать свой вопрос1)program zz1;
const n = 5;
b = 5; // задаем количество частей в массиве
var i, j, k:integer; // задаем переменные целого типа
m:array [1..n,1..b] of integer;
begin
k:=b;
for i:=1 to n do
for j:=1 to b do
begin
m[i,j]:=1;
if jgt;k then begin m[i,j]:=m[i,j]*0;end;
if j=k then begin m[i,j]:=m[i,j]*10;k:=k-1;end;
end;
for i:=1 to n do // выводим полученный массив на экран
begin
for j:=1 to b do
write(m[i,j]:4);
writeln;
end;
end.
2)program zz1;
const n = 5;
b = 5; // задаем количество частей в массиве
var i, j, k:integer; // задаем переменные целого типа
m:array [1..n,1..b] of integer;
begin
k:=1;
for i:=n downto 1 do
for j:=1 to b do
begin
m[i,j]:=k;
k:=k+1;
end;
for i:=1 to n do // выводим приобретенный массив на экран
begin
for j:=1 to b do
write(m[i,j]:4);
writeln;
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.