1. Информатика
  2. 1(в тетради для дз) написать программу,

1(в тетради для дз) написать программу, обрабатывающую поток водимых с клавиатуры целых чисел (пока не будет введен 0) и выводящую на экран количество введенных чисел, количество положительных, а также сумму и среднее арифметическое только положительных. можно решать через любой оператор цикла (кроме for). формат вывода: введено чисел_ из них положительных_ сумма положительных чисел_ среднее арифметическое положительных чисел_

ЛенаС123 ЛенаС123    2   06.10.2019 04:30    0

Ответы
elenanovikova21 elenanovikova21  09.10.2020 23:01

var a,k,p,s: integer;

begin  

repeat

write('Введите число: ');

readln(a);

if a<>0 then k:=k+1;

if a>0 then

begin

p:=p+1;

s:=s+a

end

until a=0;

writeln;

writeln ('Введено чисел_',k);

writeln ('Из них положительных_',p);

writeln ('Сумма положительных чисел_',s);

writeln ('Среднее арифметическое положительных чисел_',s/p:0:3);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
TvaylatHale123 TvaylatHale123  06.12.2020 22:11
расставить порядок действий...
anyutatelichuk anyutatelichuk  06.12.2020 22:11
Очень с информатикой можете решить на листике. Заранее просто огромное вам...
lizakirianova03 lizakirianova03  06.12.2020 22:12
Значение арифметического выражения: 9²⁰¹⁶ + З²⁰¹⁵ — 9 — записали в системе счисления с основанием 3. ответьте на вопрос, сколько цифр «2» содержится в записи?...
valeriarodriger valeriarodriger  06.12.2020 22:14
1. Составьте программу, которая определит максимальный элемент и количество его вхождений. в линейном массиве размера n с элементами действительного числа. 2. Клавиатура считывает...
hnbgh7hyng hnbgh7hyng  06.12.2020 22:16
Решите задачу по информатике (turbo pascal) удалить все , из строки и подсчитать количество символов F стоящих после + и количество символов F стоящих после - (отдельно)...
Kokone143 Kokone143  06.12.2020 22:20
1. Для чего используются формы в MS Excel? 2. Что такое фильтр? 3. Как применяются текстовые и числовые фильтры? 4. Каким образом фильтры при работе с БД? 5. В каких случаях необходимо...
kanyuka kanyuka  28.03.2019 21:10
По паскалю даны координаты двух различных полей шахматной доски х1, y1, x2, y2 (целые числа, лежащие в диапазоне 1-8). проверить истинность высказывания: «данные поля имеют одинаковый...
tairovazukhra tairovazukhra  03.10.2019 09:40
Даны три целых числа: a, b, c. проверить истинность высказывания: «хотя бы одно из чисел a, b, c положительное» с++...
ааа516 ааа516  03.10.2019 09:40
Определи значение переменной a после выполнения фрагмента алгоритма при a=5 и a=18. ввод а если a 5 то a: =a+20 иначе a: =a*10 всё ответ: при a=5 значение переменной a равно ? , при...
pollllyyy pollllyyy  21.12.2020 17:32
Файл находился в каталоге C:\1\2\3\4\5. Сначала пользователь поднялся на три уровня вверх, куда и был перемещён файл. Определите полный путь к каталогу, где теперь находится файл​...

Популярные вопросы