01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 1 задание

1. даны: натуральное число n, действительное число . Вычислить сумму тех чисел этой последовательности, которые неотрицательные, но не превышают 12,5.

• Текст программы:

var

n,i: integer; x: array[1..100]of real; s: real;

begin

write ('n=');

readln (n);

s:=0;

for i:=1 to n do begin

write('x');

readln (x[i]);

end;

for i:=1 to n do begin

if x[i] < 12.5 then begin

s:=s+x [i];

end;

end;

writeln ('s=',s);

readln; readln;

end.

• Исходные данные: n=3 and x=1,x=2,x=3. Результат: s=6.0000000000E+00

да

нет