Помогите, пожалуйста с Pascal ! Задание: Массив А задается с клавиатуры. Создайте массив Б состоящий из четных чисел массива А. (ОТВЕЧУ ВЗАИМНОЙ ПОМОЩЬЮ ПО ДРУГИМ ПРЕДМЕТАМ ! ЗАРАНЕЕ СПАСИБО !!! P.S. ребята, пожалуйста, не отв...
Помогите, пожалуйста с Pascal !
Задание:
Массив А задается с клавиатуры.
Создайте массив Б состоящий из четных чисел массива А.
(ОТВЕЧУ ВЗАИМНОЙ ПОМОЩЬЮ ПО ДРУГИМ ПРЕДМЕТАМ ! ЗАРАНЕЕ СПАСИБО !!! P.S. ребята, пожалуйста, не отвечайте ради прикола... дело серьёзное ..... )
Гость
Ответ(ы) на вопрос:
Гостьconst
n=10;
var
a,b:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 2=0 then
begin
k:=k+1;
b[k]:=a[i];
end;
writeln;
for i:=1 to k do
write(b[i]:4);
end.
Не нашли ответ?
Похожие вопросы