Дан массив 0из 6 элементов. найти среднее арифметического элементов этого массива. в паскале
Дан массив 0из 6 элементов. найти среднее арифметического элементов этого массива. в паскале
Гость
Ответ(ы) на вопрос:
Гостьconst n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(20);
s := s + a[i];
write(a[i], ' ');
end;
writeln;
writeln('Среднее арифметическое эл. массива: ', s / n);
end.
ГостьProgram Tanina_domashka; i:byte; summa:integer; o:array[1..6] of integer; Begin Writeln('Массив'); For i:=1 to 6 do Begin o[i]:=random(1001)-500; Writeln('Элемент массива №',i,' = ',o[i]); End; For i:=1 to 6 do summa:=summa+o[i]; Writeln('Среднее арифметическое элементов массива = ',summa/6); End.
Не нашли ответ?
Похожие вопросы