Сформировать два массива из десяти целых чисел: в первый записывать четные значения, а во второй – все нечетные. Вывести оба массива
Сформировать два массива из десяти целых чисел: в первый записывать четные
значения, а во второй – все нечетные. Вывести оба массива
Ответ(ы) на вопрос:
Гость
Var
C,N:array[1..10] of integer;
A,i,j,m:integer;
Begin
WriteLn('Введите десять целых чисел');
j:=0;
m:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A mod 2 = 0 then
Begin
j:=j+1;
C[j]:=A;
End
else
Begin
m:=m+1;
N[m]:=A;
End
End;
Write('Массив чётных чисел: ');
For j:= 1 to j do
Write(C[j],' ');
WriteLn;
Write('Массив нечётных чисел: ');
For m:= 1 to m do
Write(N[m],' ');
End.
Не нашли ответ?
Похожие вопросы