Составить программу «Вычислить среднее арифметическое N целых чисел»

+419 голосов
4.4m просмотров

Составить программу «Вычислить среднее арифметическое N целых чисел»


Информатика (65 баллов) | 4.4m просмотров
+167

На каком языке программирования?

+190

Паскаль

Дан 1 ответ
+41 голосов

Объяснение:

Надеюсь, что всё так)

var N,x,S,i:integer;

   SR:real;

begin

 writeln ('кол-во чисел в последовательности N=');

 readln (N);

 S:=0;

 for i:=1 to N do

 begin

   read (x);

   S:=S+x;

 end;

 Sr:=S/N;

 Writeln('Sr=',Sr)

end.

(581 баллов)
+60

Я тоже надеюсь на это х))) Спасибо большое)

+67

Пока не за что))

+55

А блиннн чувак, нужно придумать для нее тест и пройти его. Извини наверно уже поздно х)

+114

Ууу... это сложнее))

+91

Эх, жаль....