Наити сумму и количество отрицательных из введенных чисел - Pascal

  1. Водится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.


textual

Код к задаче: «Наити сумму и количество отрицательных из введенных чисел - Pascal»

var
  a, s, b, i: integer;
 
begin
  for i := 1 to 3
  do 
  begin
    read(a);
    if a < 0
      then b += 1;
    s += a;
  end;
  writeln('Сумма ', s, ' Кол-во отрицательных элементов ', b);  
end.

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

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



Похожие ответы
  1. Рассчитать количество краски, необходимое для покраски окон, если известен расход краски на 1кв. м.

  1. Пожалуйста,помогите с задачей: Определить количество рулонов обоев, необходимых для оклейки 1, 2, 3 и т. д. комнат.

  1. Записать на место отрицательных элементов матрицы A(10;10) нули и вывести ее на печать в общепринятом виде. a(ij)=(sin(j)+cos^2(i)*(i+j)

  1. Пследовательно вводятся символы латинских прописных и строчных букв до ввода символа пробела. Подсчитать количество прописных букв

  1. В текстовом редакторе создать файл из нескольких строк символов. Вывести его содержимое на экран. В строке с заданным номером k>0 подсчитать количество цифр. Полученное значение записать в конец файла и вывести содержимое измененного файла на экран.

  1. Составить программу, которая заполняет массив 6*6 случайным числами от -5до 10, вычисляет количество четных элементов в указанном столбце матрицы, выводит массив и результат вычислений.

  1. Расстояние L задано в сантиметрах. Определить количество полных метров в нем и остаток в сантиметрах

  1. Дан текстовый файл. Подсчитать количество строк, в которых вторым стоит символ «+», а предпоследним «-».

  1. Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве.Добавлено через 1 минуту помогите пож-та