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

Question

Арина Казакова

Информатика

14 сентября, 06:15

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

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Korsika · 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]=7 then k:=k+1; end;

writeln (k);

end.