Помогите пожалуйста!!! Дан целочисленный массив A размера N ( меньше =15). Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1,3...) и вывести размер полученного массива B и его содержимое...
Помогите пожалуйста!!!
Дан целочисленный массив A размера N (<=15). Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1,3...) и вывести размер полученного массива B и его содержимое.Условный оператор не использовать
Гость
Ответ(ы) на вопрос:
ГостьEasy
Как-то так)
const
n=15;
var
z:integer;
i:integer;
a:array[1..n] of integer;
b:array[1..(n div 2)+1]of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(99)+1;
write(a[i],' ');
end;
writeln;
i:=-1;
z:=1;
while i
Не нашли ответ?
Похожие вопросы