Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и подсчет суммы и среднего арифмитического введённых положительных чисел.Используйте оператор repeat.

1 ответ

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

DevAdmin

1720

Program z;
var a,i:integer; max:real;
begin
max:=0;
i:=0;
repeat writeln('Введите число'); read(a);
max:=max+a;
i:=i+1;
until a=0;
writeln('Сумма =',max);
writeln('Средние значение =',max/i);
end.

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

28 декабря 2022 01:59

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

Найти нужный

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

Очень срочно!!!!! Питон!!!! Напишите процедуру, которая принимает параметр-натуральное число N- и выводит на экран линию из N символов "-" Пример: 1... 12) Каково назначение процессора? a. обрабатывать одну программу в данный момент времени b. управлять ходом вычислительного процесса и выполнять ари... Как !??? Топологическая сортировка В алгоритме топологической сортировки узел с входным град (indeg=0) равный нулю удаляется и и ему присваивается сле... Емкость USB флешки 256Мбайт. Какова емкость в USB флешки в байтах битах килобайтах информатика 8 кл... Что вы знаете о следующих видах видов кодирования Напишите маленький рассказ. Семафорная Азбука алфавит брайля...