Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы используя операторы цикла While, Repeat и For.

1 ответ

Посмотреть ответы

Megamozg

2205

1) С помощью while:
var

a,b,c,i:integer;

begin

i:=0;

b:=0;

writeln('Write 10 number:');

while i<10 do

begin

read(a);

b:=b+a;

i:=i+1;

end;

writeln('Average: ',b/10:0:0);

readln

end.

Хороший ответ

29 декабря 2022 13:16

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Боря,Витя,Гриша и Егор встретились на всероссийской олимпиаде по информатике. Ребята приехали из разных городов: Москвы, Омска, Санкт-Петербурга и Кир... Шахматная ладья ходит по горизонтали или вертикали. Даны две различные клетки шахматной доски, определите, может ли ладья попасть с первой клетки на в... Решите задачу!!!!!!!!!!!!! Некое растровое изображение было сохранено в файле р1.bmp как 24-разрядный рисунок. Во сколько раз будет меньше информацион... Знаковой моделью является: Вариант 1 анатомический муляж; Вариант 2 макет здания; Вариант 3 модель корабля; Вариант 4 диаграмма; _____... Дан фрагмент электронной таблицы. Какая формула может быть записана в ячейке D2, чтобы построенная после выполнения вычислений диаграмма по значениям...