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

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

textual

Код:

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.

Похожие ответы
  1. Решите пожалуйста вот это.. Создать Массив С на 30 целых чисел из диапазона (-25...25). Найти количество положительных чисел в массиве KP, отрицательных KO и нулевых KN. Заменить все отрицательные числа числом +50, а нулевые - числом +30. НАйти среднее арифметическое значение всех элементов массива. Прям совсем не умею работать с двумерными и далее массивами....

  1. В матрице посчитать количество строк и столбцов не содержащих отрицательных элементов. Помогите, пожалуйста) Нужна программа на паскале.

  1. Дан текстовый файл Найти номер строк матрицы где количество отрицательных и неотрицательных элементов равно; я никак не пойму как это написать

  1. Даны натуральное число n и целые числа a1, a2,..., an. Определить количество отрицательных и количество положительных вещественных чисел

  1. В заданном массиве подсчитать количество положительных и отрицательных чисел. Вывести на экран заданный массив и счетчики.

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

  1. Всем доброго времени суток. Задали сделать лабораторные работы, но вот незадача, простые я смог выполнить а с массивом и так и сяк, не как не получается. Прошу вашей помощи, если можно то программу лучше напишите полностью. Задача. В одномерном массиве X(15) найти сумму отрицательных, количество положительных и произведение не нулевых элементов. P.S. я с таким не сталкивался но возможно ли выполнить все эти действия из задачи в одной программе?

  1. Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел.

  1. Добрый время суток! Передо мной была поставлена задача: сформировать двумерный массив B размером 2 x 4, с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить и вывести на экран и в файл строку матрицы B, содержащую максимальное количество отрицательных элементов (оформить вычисление количества отрицательных элементов в виде функции). Я выполняю в Паскаль ABC.NET, но у меня ничего не получается, запускает и выводит множество ошибок! А в Турбо Паскале не записывает в файл. Пожалуйста помогите!

  1. Помогите исправить Ввести матрицы A(n1,m1), B(n2,m2). Найти количества отрицательных k1, k2 элементов в них. Если k1>k2, то периметр матрицы А заменить на k1, иначе – периметр матрицы В на k2. Матрицы отпечатать. Подпрограммы: ввод матрицы, поиск количества, замена, вывод матрицы.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика