Question

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

Answer 1

В общем всё на фотках на первой прога на второй блок схема, блок схема устаревшего образца как говорит (Эникей), хотя на ЕГЭ писал почти такую же и получил максимальный балл по заданию, если интересно я прикрепил ещё его вариант оформления цикла for только там блок схема для другой программы.

Answer 2

Для решения этой задачи вам потребуется написать программу на языке Турбо Паскаль.

Блок-схема для решения этой задачи может выглядеть следующим образом:

1. Начало программы. 2. Объявление переменных: размер массива (N), массив А, переменная для суммы отрицательных элементов (sum), переменная для количества отрицательных элементов (count). 3. Ввод значения N. 4. Создание массива А размером N. 5. Переменной sum присваивается значение 0. 6. Переменной count присваивается значение 0. 7. Цикл для ввода элементов массива А и подсчета суммы отрицательных элементов и их количества: 7.1. Ввод значения элемента массива А[i]. 7.2. Если А[i] отрицательное, то sum увеличивается на А[i] и count увеличивается на 1. 8. Вывод суммы отрицательных элементов и их количества. 9. Конец программы.

Программа на языке Турбо Паскаль для решения этой задачи может выглядеть следующим образом:

program NegativeSum;
const
  MaxSize = 100;
var
  N, i, sum, count: integer;
  A: array[1..MaxSize] of integer;
begin
  write('Введите размер массива: ');
  readln(N);
  
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('A[', i, '] = ');
    readln(A[i]);
    
    if A[i] < 0 then
    begin
      sum := sum + A[i];
      count := count + 1;
    end;
  end;
  
  writeln('Сумма отрицательных элементов: ', sum);
  writeln('Количество отрицательных элементов: ', count);
end.

Эта программа сначала запрашивает у пользователя размер массива, затем в цикле запрашивает у пользователя элементы массива, подсчитывая при этом сумму и количество отрицательных элементов. В конце программа выводит полученные значения.

Надеюсь, это поможет вам решить задачу! Если у вас есть еще вопросы, не стесняйтесь задавать.