Pascal, цикл для, составить программу.

1) Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел

Question

Информатика

Матя

12 февраля, 14:47

Pascal, цикл для, составить программу.

1) Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел

+5

Ответы (1)

Знаете ответ на вопрос?

Ксюта · Answer 1

Program up1;

var i, q, w:integer; w:real;

begin

for i:=1 to 10 do

begin

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

read (q) ;

w:=w+q;

end;

e:=w/10;

write ('средне арихметическое чисел', e) ;

end.

Pascal, цикл для, составить программу.1) Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел

Pascal, цикл для, составить программу.

1) Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел