Главная »
2012 »
Декабрь »
11 » В массиве B(n) подсчитать количество элементов, равных 5-ти и количество элементов, больших 5-ти.
23:56 В массиве B(n) подсчитать количество элементов, равных 5-ти и количество элементов, больших 5-ти. |
- var i, n, count5, countb5: integer;
- B: array[1..100] of integer;
- begin
- write('n = ');
- readln(n);
- count5:=0;
- countb5:=0;
- for i:=1 to n do
- begin
- write('B[',i,'] = ');
- readln(B[i]);
- if B[i] = 5 then inc(count5);
- if B[i] > 5 then inc(countb5);
- end;
- writeln('count5 = ',count5);
- writeln('countb5 = ',countb5);
- end.
|
Категория: Простые примеры |
Просмотров: 1595 |
Добавил: is
| Рейтинг: 0.0/0 |