Составьте программу для нахождения среднего арифметического элементов массива длиной 4.

Составьте программу для нахождения среднего арифметического элементов массива длиной 4.
Гость
Ответ(ы) на вопрос:
Гость
var    ar:array [1..4] of integer;    i:integer;    sum:real; begin    sum:=0;    for i:=1 to 4 do begin       read(ar[i]);       sum+=ar[i];    end;    writeln;    sum:= sum/4;    writeln(sum); end.    
Не нашли ответ?
Ответить на вопрос
Похожие вопросы