Advertisement
gorbunova27

Untitled

Jun 23rd, 2022
638
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.   a : array [1..50] of longint;
  3.   i,sum,n,k : longint;
  4. begin
  5.   readln(n);
  6.   for i:=1 to n do
  7.   readln(a[i]);
  8.   sum:=0;
  9.   for i:=1 to n do
  10.     if a[i]=8 then
  11.       sum:=sum+1;
  12.   writeln(sum);
  13. end.
Advertisement
RAW Paste Data Copied
Advertisement