Question

Напишите программу, которая вычисляет сумму, среднее арифметическое и произведение первых 20 чисел.

Помогите пожалуйста. Буду очень благодарна!

Answer 1

program srednee_chisel;uses crt;var q,x,s:longint; a:real;begin clrscr;q:=1;for x:=1 to 20 do begins:=s+x;q:=q*x; end;a:=s/20;writeln ('Сумма', s:5);writeln ('Среднее арифметическое', a:5);writeln ('Произведение', q:6);readln; end.

Answer 2

program srednee_chisel;
uses crt;
var q,x,s:longint; a:real;
begin clrscr;
q:=1;
for x:=1 to 20 do begin
s:=s+x;
q:=q*x;
writeln (q);
end;
a:=s/20;
writeln ('Сумма', s:5);
writeln ('Среднее арифметическое', a:5);
writeln ('Произведение', q:6);
readln;
end.

Answer 3

Вынужден Вас огорчить, Ваша программа работает неверно

Answer 4

1
2
6
24
120
720
5040
40320
362880
3628800
39916800
479001600
1932053504
1278945280
2004310016
2004189184
-288522240
-898433024
109641728
-2102132736
Сумма 210
Среднее арифметическое 10.5
Произведение-2102132736

Answer 5

Не говоря о величине, произведение натуральных чисел не может быть отрицательным.