дан массив из 10 целых элементов из диапазона [-10;7]. переписать в другой масси...

August 2022 1 9 Report

дан массив из 10 целых элементов из диапазона [-10;7]. переписать в другой массив все нечетные элементы. при этом вывести исходный и полученный массив

Answers & Comments

beetle7 Var a, b: array [1..10] of integer;
i, j: integer;

begin
j := 1;
for i := 1 to 10 do
read(a[i]);
for i := 1 to 10 do
if (a[i] mod 2) <> 0 then
begin
b[j] := a[i];
inc(j);
end;
for i := 1 to 10 do
write(a[i], ' ');
writeln;
for i := 1 to j - 1 do
write(b[i], ' ');
end.

0 votes Thanks 0

Answers & Comments

dana stroka simvolov soderzhashaya simvoly vyvesti vse cifry stroki paskal

udalit iz stroki simvoly mezhdu 1 i poslednej esli lt2 to vyvesti soobshen

vyvesti vse 3hznachnye chisla kvadrat kotorogo zakanchivaetsya etim zhe chislom napr

paskalsozdat massiv 5h6 celyh chisel iz diapazona 110 vyvesti ego na ekra

dano naturalnoe chislovyvesti proizvedenie ego chetnyh cifr programma

postroit grafik funkcii yfx na zadannom diapazone izmeneniya argumenta najti

vyberete 2 prailnyh otveta k zhivotnym otnosyatsya 1komar 2infuzoriya tufelka

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

Helpful Links

Helpful Social