Задать вопрос
7 октября, 23:49

6. Составить алгоритм и написать программу вычисления суммы и среднего значения только отрицательных чисел из вводимых N произвольных (как положительных, так и отрицательных) целых чисел. N не больше 10

+2
Ответы (1)
  1. 8 октября, 03:35
    0
    Var a:array[1 ... 100] of integer;

    i, n, s, k:integer;

    begin

    s:=0; k:=0;

    write ('Введите кол-во чисел: ') ; readln (n) ;

    write ('Введите числа: ') ;

    for i:=1 to n do

    read (a[i]) ;

    for i:=1 to n do

    if a[i]<0 then begin

    s:=s+a[i];

    inc (k) ;

    end;

    if k0 then

    begin writeln ('Ср. знач. отрицательных чисел: ', s/k) ;

    writeln ('Сумма отрицательных чисел: ', s) ; end

    else writeln ('Отрицательных членов нет') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «6. Составить алгоритм и написать программу вычисления суммы и среднего значения только отрицательных чисел из вводимых N произвольных (как ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы