Определить, сколько раз встречается число 7 среди элементов массива

Категория: Delphi/Pascal
2011-09-04 15:59:00
code: #pascal
  1. program Project4;
  2. Var
  3. a:array[1..8] of Integer;
  4. k,n,i:Integer;
  5. begin
  6.  For i:=1 to 8 do
  7. begin
  8.  a[i]:=Random(10);
  9.  Writeln('a[i]=',a[i]);
  10. end;
  11.  n:=0;
  12.  For i:=1 to 8 do
  13.  begin
  14.    If a[i]= 7 then  n:= n+1;
  15.  end;
  16. Writeln('n=',n);
  17. readln;
  18. end.
Поделиться:

Похожие статьи:

теги: одномерный массив, массив, студенты, консольное приложение