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

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

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

var

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

begin

write('n=');

readln(n);

s:=0;

k:=true;

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) and (x[i]>0) then

s:=s+x[i];

end;

if k then

writeln('error');

writeln('s=',s);

readln;readln;

end.

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

нет

да

да

нет