Поделиться
Л2-00641.docx
Алгоритмы обработки
Задача: Сформировать массив b из нечетных элементов массива
a, состоящим из n элементов.
Program massiv; Const n=10;
Var
a, b: array [1..n] of integer;
i, k: byte; {i – индекс массива a, k – индекс массива b} Begin
For i:=1 to n do {Заполнение массива числами в диапазоне
от -25 до 24 случайным образом}
a[i]:= random (50)-25; writeln(‘Массив A’);
For i:=1 to k-1 do
write (a[i]:5); { вывод массива a в строку} writeln;
k:=1;
For i:=1 to n do
If a[i] mod 2 <> 0 then begin {Проверка на нечетность}
b[k]:=a[i]; {Запись нечетного элемента в
массив b}
k:=k+1; {Подготовка индекса для
следующего элемента}
end; writeln(‘Массив B’);
For i:=1 to k-1 do
write (b[i]:5); {вывод массива b в строку}
end.
1.
![For i:=1 to k-1 do write (b[i]:5); { вывод массива b в строку } end](https://fs.znanio.ru/d5af0e/3b/10/52d64598ed0aecf229d9798f8252629de3.jpg)
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
