Турбо Паскаль. цикл for. Написать програму вычисляющая суму и среднее арифметическое нескольких чисел которые вводит пользователь.

1

Ответы и объяснения

Лучший Ответ!
2013-05-04T20:27:02+04:00

Program SumAndAvg;

Uses Crt;

var i,n:integer;

      s,c,a:real;

begin

    clrscr;

    write('Введите количество чисел: ');

    readln(n);

    writeln('Введите ',n,'  чисел' );

     s:=0; a:=0; 

    for i:=1 to n do

         begin         

            readln(c);

            s:=s+c;

         end;   

   a:=(s/n);  

 writeln('Сумма введённых чисел',s);

  writeln('Среднее арифметическое введённых чисел',a); 

  readkey; 

end.