Дана последовательность целых чисел а1, а2, а3,...,аn. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте
На языке Паскаль. Буду очень признательна
Ответы
Ответ дал:
0
Program arr;
const
maxn=10;
var
a,b: array[1..maxn] of integer;
N,i,j: integer;
begin
readln(N);
//заполнение массива
for i:=1 to N do
read(a[i]);
//основная программа
for i:=1 to N do
if a[i] mod 2 = 0 then
begin
j:=j+1;
b[j]:=a[i];
end;
for i:=1 to j do
write(b[i],' ');
end.
Ответ дал:
0
if j>0 then
for i:=1 to j do
write(b[i],' ')
else
write('Чётных чисел нет.');
end.
Это в конце добавишь вместо 3 последних строк.
for i:=1 to j do
write(b[i],' ')
else
write('Чётных чисел нет.');
end.
Это в конце добавишь вместо 3 последних строк.
Ответ дал:
0
var
m:array [1..10000] of integer;
a,n,i,j:integer;
begin
writeln('Введите n:');
readln(n);
j:=0;
writeln('Введите последовательность чисел:');
for i:=1 to n do
begin
readln(a);
if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;
end;
if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')
else
begin
writeln ('Нечетные числа в данной последовательности:');
for i:=1 to j do
write(m[i],' ');
writeln;
end;
end
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад