profile
Опубликовано - 3 дня назад | По предмету Информатика | автор Аноним

Дан массив из 50 целых чисел. Найти среднее арифметическое его элементов.

  1. Ответ
    Ответ дан Веселова Маргарита
    Решение в Паскале:

    Program sred;

    Var a: array[1..50] of real;

    i, n: integer;

    s,sred: real;

    Begin

    Write (‘n=’); Readln (n);

    s:=0;

    For i:=1 to n do

    begin

    write (‘введите число’); readln (a[i]);

    s:=s+a[i];

    end;

    sred:=s/n;

    writeln(‘среднее арифметическое элементов: ‘,s);

    End.
    0



Топ пользователи


Hekady (
206)
shozavitya (
180)
znanija (
172)
Eveline (
56)