1. Составить программу, позволяющую в одномерном массиве вычислить количество элементов массива, равных первому элементу.

Question

Информатика

Фелицата

4 марта, 01:10

1. Составить программу, позволяющую в одномерном массиве вычислить количество элементов массива, равных первому элементу.

+1

Ответы (1)

Знаете ответ?

Кима · Answer 1

Var

a:array[1 ... 10000]of integer;

ans, n, i, f:integer;

begin

for i:=1 to n do

read (a[i]) ;

f:=a[1];

for i:=2 to n do

if (a[i]=f) then inc (ans) ;

writeln (ans) ;

readln;

end.