Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Часы с боем https://www.cyberforum.ru/ pascalabc/ thread986155.html
нужно срочно решить задачу по программированию. Старинные часы бьют каждые полчаса.Причем в начале каждого часа они бьют столько раз,сколько сейчас часов.И ещё 1 раз они бьют в середине каждого...
Сумму элементов главной диагонали матрицы увеличить на значение максимального элемента Pascal ABC
Найти суму элементов главной диагонали, увеличить на значение максимального элемента в массиве В(М,М)
Pascal ABC Образовать новый массив В12, элементами которого будут элементы исходного массива А12, имеющие четное значение
Вывести на экран 12 случайных чисел от А до В, которые являются элементами массива А12 . Значения А и В задаются с экрана. Образовать новый массив В12, элементами которого будут элементы исходного...
Pascal ABC Вывод на экран элементов массива с нечетными индексами Составьте программу, которая позволяет вводить с клавиатуры элементы массива а и вывода на экран элементов массива с нечетными индексами https://www.cyberforum.ru/ pascalabc/ thread986102.html
Pascal ABC Выход за границы диапазона изменения индекса https://www.cyberforum.ru/ pascalabc/ thread986077.html
Доброго времени суток! При компиляции ошибка: »*Ошибка: 100001 - выход за границы диапазона изменения индекса 0..100000 (NumericalIntegrationParabola.pas, строка 17) исходник: program...
связь с файлами Pascal ABC
var n,i:integer; procedure razl(n,i:integer); begin if n>1 then if n mod i=0 then begin write('*',i);razl(n div i,i)end
составьте программу в Pascal ABC Pascal ABC
Составьте программу, которая позволяет вводить с клавиатуры элементы массива а , а затем выводит на экран в первую строку первые 5 элементов, во вторую остальные 5 элементов.
Pascal ABC Найти сумму элементов главной диагонали матрицы помогите с ошибками, пожалуйста. program pr7; const n = 3; m = 3; var MAS:array of integer; i, j, a, b, min, S:integer; begin min := MAS; for i := 1 to n do https://www.cyberforum.ru/ pascalabc/ thread985938.html
Pascal ABC Составьте программу ввода с клавиатуры элементов массива а [1.10] и вывода их на экран в столбец https://www.cyberforum.ru/ pascalabc/ thread985937.html
Составьте программу ввода с клавиатуры элементов массива а и вывода их на экран в столбец
Pascal ABC Перевести из Basic в Pascal Dim f, s$, s1$ Const n = 3 'Точка s = InputBox("Число", , "123456789") For f = 1 To Len(s) If (f Mod n) = 0 Then s1 = s1 & "." s1 = s1 & Mid$(s, f, 1) Next Буду очень рад помощи,... https://www.cyberforum.ru/ pascalabc/ thread985917.html
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
24.10.2013, 08:12 0

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

24.10.2013, 08:12. Показов 1460. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено М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.


Вернуться к обсуждению:
Дана последовательность из N чисел: а (1), а (2), а (3) ... а (n). Найти количество отрицательных чисел
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2013, 08:12
Готовые ответы и решения:

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

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

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

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

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