дан массив 0 из 6 элементов. найти среднее арифметического элементов этого массива. в паскале

Question

Информатика

Святослава

29 декабря, 13:41

дан массив 0 из 6 элементов. найти среднее арифметического элементов этого массива. в паскале

+2

Ответы (2)

Знаете ответ на вопрос?

Тавифа · Answer 1

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.

Лекса · Answer 2

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.