Pascal, цикл для, составить программу.
1)Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
1)Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
More Questions From This User See All
Answers & Comments
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.