Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ легкая задача геометрическая прогрессия

Автор: yariknext 23.11.2007 8:24

народ help!я ни фига не разбираюсь в паскале а учитель мне задал задачу:1.Дан массив ненулевых целых чисел размера N.Проверить,образуют ли его элементы геометрическую прогрессию.Если образуют,то вывести знаменатель прогрессии,если нет-вывести 0.Пользователь сам может выбрать способ ввода чисел(вручную или случайно).
И 2ая задача:дана последовательность чисел.a[i]=1,n.Выяснить какое число встречается раньше,положительное или отрицательное.Найти количество нулевых элементов.

Автор: Ozzя 23.11.2007 16:55

1-я есть в ЧАВО.
2.

kol:=0;
for i:=1 to n do
if a[i]=0 then inc(kol);