Pascal, цикл для, составить программу. 1)Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
Pascal, цикл для, составить программу.
1)Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы