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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
