6 марта, 09:21

Найти в одномерном массиве из 10 элементов среднее арифметическое всех ненулевых чисел. Паскаль.

+1
Ответы (1)
  1. 6 марта, 10:08
    0
    Var a: array[1 ... 10] of Integer;

    i, n, x: Integer;

    begin

    for i:=1 to 10 do readln (a[i]) ;

    for i:=1 to 10 do begin

    if a[i]0 then

    begin

    inc (x, a[i]) ;

    inc (n) ;

    end;

    end;

    writeln (x/n) ;

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