Question

Помогите решить задачки Pascal. Только не с интернета, они там не правильные.

1. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора
2.Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0.
Вывести количество чисел в наборе, меньших K.

Answer 1

1. 
var
  N, i: integer;
  a, sum, mul: real;

begin
  sum := 0;
  mul := 1;
  readln(N);
  for i := 1 to N do
  begin
    readln(a);
    sum := sum + a;
    mul := mul * a;
  end;
  writeln('Сумма = ', sum);
  writeln('Произведение = ', mul)
end.

2.
var
  K, less: integer;
  a: real;

begin
  less := 0;
  readln(K);
  readln(a);
  while a <> 0 do
  begin
    if a < K then
      inc(less);
    readln(a);
  end;
  writeln(less)
end.