| Dirt_nba | Дата: Вторник, 22.01.2008, 15:51 | Сообщение # 1 |
 Знакомый
Группа: Пользователи
Сообщений: 11
Статус: Offline
| Дана последовательность из N целых чисел.Найти сколько в ней нулей.
я люблю баскетбол
|
| |
| |
| ymatem | Дата: Пятница, 25.01.2008, 00:03 | Сообщение # 2 |
 Знакомый
Группа: Пользователи
Сообщений: 13
Статус: Offline
| program a1;
var
a,k,n,s:integer;
begin
k:=0;
s:=0;
write('введите количество чисел ');
readln(n);
repeat
k:=k+1;
write('введите число ');
readln(A);
if a=0 then s:=s+1;
until k=n;
write(s);
end.
|
| |
| |
