Дана последовательность натуральных чисел a1,a2,...,an. Создать массив из четных чисел этой последовательности.Если таких чисел нет то, вывести сообщение об этом фактеМожно на языке Паскаля
Дана последовательность натуральных чисел a1,a2,...,an. Создать массив из четных чисел этой последовательности.Если таких чисел нет то, вывести сообщение об этом факте
Можно на языке Паскаля
Гость
Ответ(ы) на вопрос:
ГостьConst n=100;
Var a,b:array[1..n] of integer;
I,f,k,j:integer;
Begin
J:=1; f:=0;
For i:=1 to n do begin
Read(a[i]);
If a[i] mod 2=0 then begin f:=1; b[j]:=a[i]; inc(j) end end;
If f=0 then write("net") else for i:=1 to j-1 do write(b[i]," ")
End.
Не нашли ответ?
Похожие вопросы