profile
Опубликовано 6 лет назад по предмету Информатика от Masha1bananas

Найдите средне арифметическое 15 чисел.

  1. Ответ
    Ответ дан alex44170

    var

    i:longint;

    sr,ch: real;

    begin

    sr:=0;

    for i := 1 to 15 do

    begin

    readln(ch);

    sr:=sr+ch

    end;

    sr := sr/15;

    writeln('Ответ: ',sr);

    end.

Самые новые вопросы