Задать вопрос
7 августа, 10:44

Вычислить среднее арифметическое положительных элементов массива F (M)

+3
Ответы (1)
  1. 7 августа, 12:53
    0
    Program primer;

    const n=10;

    var f:array[1 ... n] of integer;

    k, s, m:integer; sr:real;

    begin

    writeln ('vvedite massiv') ;

    for m:=1 to n do

    readln (f[m]) ;

    k:=0;

    s:=0;

    for m:=1 to n do

    if f[m]>0 then begin

    s:=s+f[m];

    inc (k) ;

    end;

    sr:=s/k;

    writeln ('sr=', sr) ;

    readln;

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