Войти Регистрация Спроси ai-bota

1. написать программу, которая подсчитывает количество, сумму и среднее арифметическое положительных чисел последовательности. размер последовательности определяет сам пользователь программы. 2. написать программу, которая подсчитывает сумму и количество чисел последовательности, делящихся на 8 без остатка. размер последовательности определяет сам пользователь программы. принять, что последовательность состоит только из целых положительных чисел.

Показать ответ

Ответ:

Aкося

07.10.2020 23:44

Varsumma,Shet,a,b,c:integer;SAP:real;L:array [1..999] of integer;beginWrite('Сколько чисел? ');read(a);for b:=1 to a do beginwrite('Введите число ' );read(c);if (c>0) then begin Shet:=Shet+1; summa:=summa+c; SAP:=SAP+c; end;end;SAP:=SAP/Shet;Writeln(' Сумма = ',summa,' Сред = ',SAP:5:5,' Количество = ',Shet);read(a);end.

0,0(0 оценок)

Популярные вопросы: Информатика

ддииммоонн

17.06.2022 11:27

Сэлектронной таблицей. по своему варианту решить и отразить в отчет полностью ее решение вместе с записанными формулами.мой вариант первый и такова : вычислить площадь треугольника...

nazydraganil

31.01.2020 20:02

Даны два целых числа a и b (a b). найти произведение всех целых чисел от a до b включительно. входные данные: ввести два целых числа a, b (1 =a,b =10). выходные данные: вывести...

Mrklazik

12.05.2021 19:51

Hа рынке по продаже животных выставлены 10 лошадей. Запи- Зите стоимость каждой лошади. Составьте одномерный массив тоимости лошадей. Какие бы вы предложили задания для выпол-...

vladkaz21004

16.03.2020 16:30

Задача A. 80236. Докажи, что математик! Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256...

Dedula5

29.04.2021 15:53

Практическое задание N 1 Составь программу, в которой будет вычислено значение у:a+2b - 3с» если: a = 4; b 3.5; с 25а +ьКод 1a = 4; b 3.5; c= 2;print(a + 2 + b - 3 + с)/(5 + a...

ako91545

18.09.2022 05:57

Ученик 9 класса сдает зачет по информатике сколько информации несет сообщение о том что он не сдал зачет...

рузмохинур

13.09.2020 22:31

дан список работниц с указанием фамилий и окладов. к 8 марта выделена сумма премии. рассчитать размер премии для каждой из работниц пропорционально окладу, общую сумму выплат с...

Ираказефирка

24.11.2021 20:12

Подпрограммой (процедурой) называют: произвольный фрагмент программы; очасть программы, содержащую неоднократно выполняемые команды; онезависимый программный модуль; очасть программы,...

pervushinapolina

19.05.2021 01:00

Информатика 7 класс , умк бросовой входная диагностика...

Жулдуз111

24.09.2021 23:58

Автобус проезжает маршрут длиной 20 1/4 км в 7/10 ч. Он едет маршруту со скоростью 45 км / ч и делает 10 остановок одинаковой продолжительности. Сколько времени длится каждая...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку