Задание на Pascal

  • Автор темы Cigan
  • Дата начала
C

Cigan

Гость
#1
Пожалуйста помогите составить программу и нарисовать блок-схему.
Условие: массив 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.
А как правильно?
 
09.11.2009
665
1
#2
Вроде так
Код:
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.