Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 07.10.2013
Сообщений: 58
1

Дана последовательность из N чисел: а (1), а (2), а (3) ... а (n). Найти количество отрицательных чисел

23.10.2013, 22:19. Просмотров 1451. Ответов 1
Метки нет (Все метки)


Дана последовательность из N чисел: а (1), а (2), а (3) ... а (n). Найти количество отрицательных чисел.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2013, 22:19
Ответы с готовыми решениями:

Дана последовательность с n чисел. Рассчитайте отдельно количество нулевых, положительных и отрицательных чисел послед
Привет, помогите с кодом, то качан совсем не варит. Нужно сделать на цыклах. задание Дана...

ДАНА последовательность из целых чисел, за которой следует 0, найти среднее арифметическое отрицательных чисел. C++
ДАНА последовательность из целых чисел,за которой следует 0, найти среднее арифметическое...

Дана последовательность вещественных чисел {A[j]} j=1..n.Найти наибольшее из отрицательных чисел и номер этого числа в последовательности.
Дана последовательность вещественных чисел {A} j=1..n.Найти наибольшее из отрицательных чисел и...

С клавиатуры вводится последовательность дробных чисел(окончание ввода-0) найти сумму всех чисел,количество отрицательных и количество положительных.
В общем,ребята. Помогите написать код,буду очень признателен. С клавиатуры вводится...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
24.10.2013, 08:12 2
Лучший ответ Сообщение было отмечено Мasy как решение

Решение

Мasy,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a,i,k,n:integer;
begin
  k:=0;
  write('n = ');readln(n);
  for i:=1 to n do
    begin
      write('a[',i,'] = ');readln(a);
      if a<0 then inc(k)
    end;
  writeln('k = ',k);
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2013, 08:12

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Дана последовательность чисел. Найти количество различных чисел в этой последовательности
Дана последовательность чисел. Найти количество различных чисел в этой последовательности Дана...

Дана последовательность чисел. Найти количество различных чисел в этой последовательности
Дана последовательность чисел. Найти количество различных чисел в этой последовательности. Очень...

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности....

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.