K4RT3R
26.05.2022 12:14

Дано N оценок (от 2 до 5). Сколько среди них двоек и четверок? Pascal​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
igornagornov0
02.06.2021 12:10
ответ:

var x,i,n:integer;

var a:array[1..99999] of integer;

begin

readln(n);

x:=0;

for i:=1 to n do begin

readln(a[i]);

end;

for i:=1 to n do begin

if (a[i]=2) or (a[i]=4) then

inc(x);

end;

writeln(x);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота