Машина поста: На ленте располагается группа меток, отдалённых друг от друга пустыми секциями. Написать - id1737076420221007 от Nikitunnik 07.10.2022 05:07

Question

Информатика: Машина поста: На ленте располагается группа меток, отдалённых друг от друга пустыми секциями. Написать программу, которая сожмёт метки таким образом, чтобы самая правая из них осталась на месте. Исходное положение не имеет значения (Выберите самостоятельно), количество меток может быть любым.

Nikitunnik · Accepted Answer

1.
const n=20;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i]:4)
end;
writeln;
write('K = '); readln(k);
s:=0;
for i:=1 to n do
if a[i] mod k = 0 then s:=s+a[i];
Writeln('s = ',s);
end.

Пример:
Исходный массив:
18 -24 -4 -21 15 19 18 -16 -1 -8 7 -21 21 22 -24 -4 18 -16 24 4
K = 3
s = 24

2.
const n=10;
var
a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(11);
Write(a[i]:4)
end;
writeln;
writeln('Выбранные элементы:');
for i:=1 to n do
if a[i]<=i then Write(a[i]:4) else write(' ':4);
Writeln;
end.

Пример:
Исходный массив:
9 1 2 8 2 7 1 10 8 3
Выбранные элементы:
1 2 2 1 8 3

MOGZ ответил