1. Информатика
  2. Вводится последовательность

Вводится последовательность из N произвольных чисел, найти среднее значение положительных элементов последовательности. решить с использованием одного из операторов цикла: FOR, WHILE или REPEAT.
Паскаль

VanoK48 VanoK48    2   25.05.2021 13:00    0

Ответы
valdi5p0ch22 valdi5p0ch22  24.06.2021 13:00

##

var (n, s, k) := (ReadInteger, 0, 0);

for var i := 1 to n do

begin

 var t := ReadInteger;

 if t > 0 then

 begin

   s += t;

   Inc(k)

 end;

end;

if k > 0 then

 Print(s / k)

else

 Print('Нет положительных чисел')


Вводится последовательность из N произвольных чисел, найти среднее значение положительных элементов
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
котя382 котя382  27.06.2020 18:56
Законспектировать темы Алгоритмы и Язык программирования Basic....
andreyglukhov7 andreyglukhov7  27.06.2020 19:26
Решить первое и второе задание...
jinoguhaz jinoguhaz  28.06.2020 19:49
Числа 10, 8, 6, 4 и 2 находились в очереди (в указанном порядке). Из очереди взяли 4 раза по числу, помещая их в ранее пустой стек. Из стека дважды был извлечён верхний элемент...
Флов227монстр Флов227монстр  27.06.2020 19:17
Створити To do list додаток за до модуля tkinter. Вимоги що має виконувати программа: 1) Користувач може написати якусь певну задачу напр. Піти в магазин. після цього може...
mminovskaya777 mminovskaya777  27.06.2020 19:10
1. Даны списки: a = [1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89]; b = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13]. Нужно вернуть список, который состоит из элементов, общих для...
kvm1 kvm1  27.06.2020 21:17
Скопируйте из папки Lexi файлы n, m, s (см. табл. 1.1) на Ваш носитель информации. Объедините тексты указанных файлов, получив новый объединенный документ. Задайте нумерацию...
morcowqwerty morcowqwerty  27.06.2020 21:17
Задание_3. С текстового процессора «WORD» построите таблицу, варианты которой указаны в табл. 1.2 и табл.3 (в «шапке» таблицы должны быть слова, а не буквы, высота таблица...
Luvizum Luvizum  11.03.2021 18:08
python Дан массив из N элементов. Найти среднее арифметическое всех элементов, округленное в меньшую сторону. Формат входных данных В первой строке N (0 массива. Формат выходных...
UlyaYouth111 UlyaYouth111  11.03.2021 18:08
Определи тип переменной R: f=int(input()) ( ) A=float(input()) R=5+f-A Print (R)Строковая величинаЦелое число Вещественное числоЛогическая величина​...
basarbakhtiar basarbakhtiar  11.03.2021 18:09
Программа на языке Python называется …​...

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