Дан массив целых чисел из 10 элементов вставить число к перед элементами массива...

July 2022 1 5 Report

Дан массив целых чисел из 10 элементов вставить число к перед элементами массива кратными заданному числу r ( k и r вводится с клавиатуры)составить программу

Answers & Comments

petyaGavrikov

Verified answer

Const n=10;
Var
a:array[1..2*n] of integer;
i,j,l,k,r:integer;
Begin
Randomize;
for i:=1 to n do begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
Write('k = ');Readln(k);
Write('r = ');Readln(r);
For i:=n downto 1 do
if a[i] mod r = 0 then
begin
l:=l+1;
for j:=n+l-1 downto i do a[j+1]:=a[j];
a[i]:=k;
end;
for i:=1 to n+l do write(a[i]:3);
writeln;
End.

Пример:
2 12 3 20 1 9 11 8 15 14
k = 5
r = 2
5 2 5 12 3 5 20 1 9 11 5 8 15 5 14

0 votes Thanks 0

Answers & Comments

Verified answer

opredelit kakoj obem vozduha n u neobhodim dlya szhiganiya na veski tehnicheskogo

10ukazhite civilizacii vostoka kotorye zatronul process modernizacii a indiya b

napisat programmu dlya paskal izvestno chto 1 milya 7 vyorst 1 versta 500 sa

treugolnik so storonami 101215 ostrougolnyj

opredelit massu soli i obem vodoroda n u obrazuyushiesya pri dejstvii 49 g 10rra

kakaya massa oksida magniya vstupila v reakciyu s azotnoj kislotoj esli v rezulta

opredelit massu i obem 12041022 molekul ammiaka molekula kotorogo sostoit

opredelit massu i chislo molekulsoderzhashiesya v 448 l normalnye usloviya hlorov

dan massiv celyh chisel iz 10 elementov udalit iz nego vse elementy v kotoryh

x po zapadnym obrazcam byla provedena reforma pri aleksee mihajloviche1 po fo

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

Helpful Links

Helpful Social