Предмет: Информатика,
автор: neowilo21
Помогите с информатикой очень срочно!!! 25 баллов дам Pascal abc
Приложения:
Ответы
Автор ответа:
1
Ответ:
var
a: array[1..5] of integer;
i,b: integer;
begin
b:= 0;
for i:= 1 to 5 do
readln(a[i]);
write(a);
for i:=1 to 5 do
begin
if a[i] mod 2 = 1 then
b:= b + 1;
end;
write('Количество нечетных чисел: ',b)
end.
Похожие вопросы
Предмет: Русский язык,
автор: ЮлияКезурова
Предмет: Английский язык,
автор: frisman2014
Предмет: Английский язык,
автор: narmina2017
Предмет: Физика,
автор: enot3728
Предмет: Биология,
автор: tima66666