Дано: а-первый член прогрессии, знаменатель-q, n-количество членов. вывести на экран все члены геом. прогрессии и их среднее арифметическое (в паскале)

Nellimaer17 Nellimaer17    1   18.05.2019 03:30    0

Ответы
ITyanI ITyanI  11.06.2020 08:24

program njn;

uses crt;

var a:array [1..100] of integer;

       i,p:integer;

       s:real;

begin

clrscr;

readln(a[1],q,n);

s:=0;

p:=a[1];

for i:=2 to n do begin

 a[i]:=p*q;

p:=a[i];

end;

for i:=1 to n do

writeln(a[i]);

for i:=1 to n do

s:=s+a[i];

writeln('Среднее=',s/n);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика