Задан массив а из 10 целых чисел. найти среднее арифметическое всех элементов массива.

157

291

Посмотреть ответы 2

Ответы на вопрос:

9827816

Информатика

4,7(57 оценок)

Var a: array[1..10] of integer; i,sum: integer; begin sum: =0; for i: =1 to 10 do begin readln(a[i]); sum: =sum+a[i]; end; writeln(sum/10) end.

limi3

Информатика

4,4(50 оценок)

var a: array[1..15] of integer; i,n: integer; x: real; m: int64; begin for i : = 1 to 15 do readln(a[i]); m: =1; for i: =1 to 15 do begin x: =x+a[i]; m: =m*a[i]; end; writeln('a[1]+a[7]: =',a[1]+a[7]); writeln('a[9]-a[3]: =',a[9]-a[3]); writeln('srednee ar.: =',x/15); writeln('proizvedenie: =',m); end.