Задание на Pascal

Cigan · 03.10.2010

Пожалуйста помогите составить программу и нарисовать блок-схему.
Условие: массив S содержит N однородных элементов. Ввести значения элементов массива S и определить кол-во элементов S(i) удовлетворяющих условиям: S(i)>5 и S(i)<8.
Вот то, что у меня получилось
Program F;
var
i,N:Integer;
S: array [1..N] of real;
Begin
readln (S);
for i:=1 to N do
if S>5 and S<8 then
writeln (S);
end.
А как правильно?

Dock1100 · 03.10.2010

Вроде так

Код:

Program F;
const N=12;
var
i,k:Integer;
S: array [1..N] of real;
Begin
k:=0;
for i:=1 to N do
begin
writeln('vvedite element');
readln(S[i]);
if (S[i]>5)and(S[i]<8) then k:=k+1;
end;
writeln('kol-vo ',k);
end.

Cigan · 03.10.2010

Спасибо.
а почему N=12 ?

Dock1100 · 03.10.2010

const N=12;

Cigan сказал(а):
а почему N=12 ?

Ну в принципе место двинадцати может быть любое целочисленное число от 2 до 32768 (поскоку N обозначает длину масива (S: array [1..N] ))