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

Question

Информатика

Радульф

11 июня, 02:42

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

+4

Ответы (1)

Знаете ответ?

Ревета · Answer 1

Program zadacha;

Const n = 10;

Type mas=array[1 ... n] of integer;

Var s, i, k, d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln (d) ;

For i:=1 to n do

read (m[i]) ;

For i:=1 to n do

if 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;

Begin

s:=0;

k:=0;

readln (d) ;

for i:=1 to n do begin

readln (m) ;

if (m < d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln ('Сумма чисел < d = ', s,' Колиество чисел < d = ', k) ;

end. (А это решение для того случая когда вы вводите элементы по одному)