Составить программу. Дан массив, состоящий из 5 элементов. Найти кол-во элементов равных 7. Числа 7,14,-3,7,0.

Question

Информатика

Гертруда

24 мая, 01:34

Составить программу. Дан массив, состоящий из 5 элементов. Найти кол-во элементов равных 7. Числа 7,14,-3,7,0.

+5

Ответы (1)

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

Паисия · Answer 1

Var

a : array [1 ... 100] of longint;

k, i : longint;

begin

k:=0;

for i:=1 to 5 do begin read (a[i]) ; if a[i]=k then k:=k+1; end;

writeln (k) ;

end.