3. Дана последовательность из 100 чисел a1, …, an, где при i=1,2…, n значение ai= 3*i; a) Найти сумму элементов последовательности; b) Найти среднее по всем элементам последовательности.
3. Дана последовательность из 100 чисел a1, …, an, где при i=1,2…, n значение ai= 3*i; a) Найти сумму элементов последовательности; b) Найти среднее по всем элементам последовательности.
Гость
Ответ(ы) на вопрос:
ГостьProgram z1; const n = 100; Var a: array [1..n] of integer; i,s:integer; sz:real;Begin for i:=1 to n do begin a[i]:=3*i; write (a[i],' '); end; s:=0; for i:=1 to n do s:=s+a[i]; sz:=s/n; writeln; writeln('A) ',s); writeln('B) ',sz);
End.
Не нашли ответ?
Похожие вопросы