Паскаль.Циклические алгоритмы.

[Jimmy_93]

Собственно вот...

Даны натуральное число n, действительные числа x1, … , xn. В последовательности x1, … , xn получить сумму членов, принадлежащих отрезку [3, 7], а также число таких членов.

З.Ы.
Сделать тремя способами:
а) цикл с предусловием
б) цикл с постусловием
в) цикл с параметром

[Slap]

в)

const nmax=5;
var
n,i,j, r:integer;
s:real;
x:array[1..nmax] of real;
begin
 readln(n);
 s:=0;
 r:=0;
 for i:=1 to n do
 begin
 read(x[i]);
 if (x[i]>=3) and (x[i]<=7) then
  begin
  s:=s+x[i];
  inc(r);
  end
 end;
 writeln('ñóììà= ', s);
 write('êîëè÷åñòâî ÷èñåë ', r);
end.

б)

const nmax=5;
var
n,i,j, r:integer;
s:real;
x:array[1..nmax] of real;
begin
 readln(n);
 s:=0;
 r:=0;
 i:=0;
 repeat
 begin
 inc(i);
 read(x[i]);
 if (x[i]>=3) and (x[i]<=7) then
  begin
  s:=s+x[i];
  inc(r);
  end
 end;
 until i>=n;
 writeln('sum= ', s);
 write('kolichestvo chisel ', r);
end.

а)

uses crt;
const nmax=5;
var
n,i,j, r:integer;
s:real;
x:array[1..nmax] of real;
begin
 readln(n);
 s:=0;
 r:=0;
 i:=0;
 while i<n do
 begin
 inc(i);
 read(x[i]);
 if (x[i]>=3) and (x[i]<=7) then
  begin
  s:=s+x[i];
  inc(r);
  end
 end;
 writeln('sum= ', s);
 write('kolichestvo chisel ', r);
end.