Программа:
Pascal:
var
n, i, s, chislo: integer;
begin
write('n = '); readln(n);
for i := 1 to n do begin
readln(chislo);
if chislo < 4 then s := s + chislo;
end;
writeln(s);
end.
С клавиатуры вводятся n чисел. Найти сумму тех чисел, которые меньше 4.
Программа:
Pascal:
var
n, i, s, chislo: integer;
begin
write('n = '); readln(n);
for i := 1 to n do begin
readln(chislo);
if chislo < 4 then s := s + chislo;
end;
writeln(s);
end.
С клавиатуры вводятся n чисел. Найти сумму тех чисел, которые меньше 4.