Skip to content

Instantly share code, notes, and snippets.

@sash13
Created September 12, 2010 18:22
Show Gist options
  • Save sash13/576303 to your computer and use it in GitHub Desktop.
Save sash13/576303 to your computer and use it in GitHub Desktop.
Const n=8;
Var a:array[1..n] of integer;
i,k: integer;
begin
writeln('Введите 8 чисел, после каждого числа нажимайте Enter');
For i:=1 to n do read(a[i]); readln;
k:=0;
For i:=1 to n do
if a[i] =0 then begin
k:=k+1;
end;
writeln('в масиве ', k, ' нульових элеменьтив');
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment