Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел - Turbo Pascal

  1. Вводится последовательность из N целых чисел.Найти сумму положительных n количество отрицательных чисел. напишите полностью програму)


textual

Код к задаче: «Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел - Turbo Pascal»

Const n=10;
Var b,c;
      a: array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
     If  a[i]>0 then b:=a[i]+b
     else
     inc(c);
Writeln(b,' ', c);
end.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.923 из 5



Похожие ответы
  1. Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала число n (количестВо чисел В последоВательности), а затем n чисел. Все числа - из диапазона Integer. n?100 Выходные данные. ВыВедите наименьшее число. пример Входного файла 7 4 2 5 -1 4 6 2 пример Выходного файла -1

  1. Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321

  1. Дана последовательность символов. Удалить словосочетание «ма». Покажите пожалуйста мне хотя бы саму суть, не надо в ответ прикреплять другие темы, я их посмотрел, но в голову все равно ничего не приходит. Спасибо за ранее.

  1. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность.

  1. Дана последовательность n целых чисел. Найдите самую длинную возрастающую подпоследовательность.

  1. Напишите программу, которая заменяет во всей строке одну последовательность символов на другую. Я пыталась сделать что-то такое,

  1. Получить последовательность dk, dk-1, ..., d0 десятичных цифр числа 100!-2^100, , т. е. такую целочисленную последовательность, в которой каждый член di удовлетворяет условию 0≤di≤9 и, дополнительно, dk∙10k+ dk-1∙10k-1+…+ d0=100!-2^100

  1. Напишите программу, которая считывает с клавиатуры последовательность символов и выводит на экран кол-во считанных букв. Вводимые символы разделяются с помощью клавиши . Предполагается, что можно вводить строчные и прописные буквы латинского алфавита и символ <*> является признаком конца последовательности.

  1. Дано натуральное число N. Получить последовательность b1...bn, Где i= 1,2,3,4...,n. Значение bi равно: Сделать динамическим списком! Помогите, не получается

  1. Ввести последовательность чисел, количество которых заранее не известно. Признаком окончания ввода последовательности является ввод числа, меньшего суммы предыдущих чисел.Вывести произведение положительных чисел последовательности. Пример: -10,-2,3,4,-6 Ответ: 12 Заранее спасибо =)