Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. Подсказка: необходимо объявить переменную-счетчик, которая будет считать количество введенных чисел, и переменную, которая будет накапливать общую сумму чисел.СДЕЛАТЬ С ПОМОЩЬЮ ПАСКАЛЯ,ПОЖАЛУЙСТА!
Ответы
Ответ дал:
0
var
i, sum: integer;
arr: array[1..10000] of integer;
begin
i := 0;
sum := 0;
repeat
i := i + 1;
readln(arr[i]);
sum := arr[i] + sum;
until (arr[i] = 0);
writeln('Кол-во введённых чисел: ', i - 1);
writeln('Их общая сумма сумма = ', sum);
writeln('Их среднее арифметическое = ', sum / (i - 1));
end.
i, sum: integer;
arr: array[1..10000] of integer;
begin
i := 0;
sum := 0;
repeat
i := i + 1;
readln(arr[i]);
sum := arr[i] + sum;
until (arr[i] = 0);
writeln('Кол-во введённых чисел: ', i - 1);
writeln('Их общая сумма сумма = ', sum);
writeln('Их среднее арифметическое = ', sum / (i - 1));
end.
Ответ дал:
0
Спасибо!
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад