Задана последовательность из n вещественных чисел. Определить сумму и количество элементов последовательности, меньших заданного значения d. Задание: Средствами языка Pascal напишите программу для решения поставленной задачи.

Ответы (1)

Венко 27.03.2024 0
Program zadacha;Const n = 10;Type mas=array[1 ... n] of integer;Var s, i, k, d:integer;m:mas;Begins:=0;k:=0;readln (d);For i:=1 to n doread (m[i]);For i:=1 to n doif m[i]s:=s+m[i];k:=k+1;end;writeln ('Сумма чисел < d = ', s,' Колиество чисел < d = ', k);end. (Это решение для случая если вы вводите сразу весь массив чисел)Program zadacha;Const n = 10;Var s, i, k, d, m:integer;Begins:=0;k:=0;readln (d);for i:=1 to n do beginreadln (m);if (m < d) then begins:=s+m14;k:=k+1;end;end;writeln ('Сумма чисел < d = ', s,' Колиество чисел < d = ', k);end. (А это решение для того случая когда вы вводите элементы по одному)

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос ✅ «Задана последовательность из n вещественных чисел. Определить сумму и количество элементов последовательности, меньших заданного значения d. Задание: Средствами языка Pascal напишите программу для решения поставленной задачи.» по предмету 📙 Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ