Задание на Pascal

Тема в разделе "Pascal and Delphi", создана пользователем Cigan, 3 окт 2010.

  1. Cigan

    Cigan Гость

    Пожалуйста помогите составить программу и нарисовать блок-схему.
    Условие: массив 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.
    А как правильно?
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Вроде так
    Код (Delphi):
    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.
     
  3. Cigan

    Cigan Гость

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    const N=12;
    Ну в принципе место двинадцати может быть любое целочисленное число от 2 до 32768 (поскоку N обозначает длину масива (S: array [1..N] ))
     
Загрузка...

Поделиться этой страницей