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

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

Question

Информатика

Матя

24 марта, 08:43

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

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

+2

Ответы (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 целых чисел. Найти среднее арифметическое этих чисел