Паскаль АБС.
1)Дано целое число N>0. С клавиатуры вводится N любых чисел , найти сумму только четных из этих чисел.Вывести полученное значение на экран.
Ответы
Ответ дал:
0
var
a : array [1..100] of integer;
i, n, s : integer;
begin
s:=0;
writeln('Введите число n');
read(n);
for i:=1 to n do
begin
writeln('Введите число: ');
read(a[i]);
end;
writeln;
writeln('Последовательность:');
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do
if (a[i] mod 2 = 0) then
s:=s+a[i];
writeln('Сумма четных: ',s);
end.
Ответ дал:
0
Добрый вечер! Пожалуйста, помогите с информатикой, в профиле крайнее не сделанное задание
Ответ дал:
0
https://znanija.com/task/31939152
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад