Question

Определить количество элементов массива, значения которых равно 4

Answer 1

Ответ:

Объяснение:

var

s:array[1..10000] of longint;

a,b,i:longint;

begin

read(a);

b:=0;

for i:=1 to a do

begin

read(s[i]);

if (s[i]=4) then inc(b);

end;

write(b);

end.