Помогите решить задачу(Pascal)

[Дима82]

Умножить все элементы массива на чило Х и определить, какое количество компонентов полученного массива находится вне интервала [0;100]

Program Lb4;
Uses crt;
Const X=10;
Var K:array[1..10] of real;
    S:real;
    I,M:integer;
Begin
Clrscr;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(M);
For I:=1 to M do
 Begin
  Write('K[',I,']=');
  Readln(K[I]);
 End;
Writeln;
Writeln('Kontrolnyi Byvod matricy: ');
For I:=1 to m do begin
Write (K[I]:4:2,'':3);
Writeln;
End;
Writeln;
Writeln('Umnoschim massiv na X: ');
For I:=1 to M do
 Begin
 K[I]:=K[I]*X;
 Write (K[I]:4:2,'':3);
 Writeln;
 Readln(K[I]);
 End;
End.

Помогите, пожалуйста, продолжить и в чём здесь моя ошибка?

[Карась]

А ты можешь обьяснить назначение каждой строчки? Зачем она была написанна в этой программы, какова её функция?

Например: Почему именно эти типы и зачем S....
Var K:array[1..10] of real;
S:real;
I,M:integer;
..........

Почемуб не написать Writeln сразу
For I:=1 to m do begin
Write (K[i]:4:2,'':3);
Writeln;
End;

.......... Зачем просить пользователя перезаписать элемент массива?
For I:=1 to M do
Begin
K[i]:=K[i]*X;
Write (K[i]:4:2,'':3);
Writeln;
Readln(K[i]);
End;

[Stilet]

А так?:

Const X=10;
Var K:array[1..10] of real;
    S:real;
    I,M:integer;
Begin
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(M);
For I:=1 to M do
 Begin
  Write('K[',I,']=');
  Readln(K[i]);
  k[i]:=k[i]*x;
  if (k[i]<0)or(k[i]>100) then; {неа за пределами}
 End;
 readln;
End.

[Дима82]

А ты можешь обьяснить назначение каждой строчки? Зачем она была написанна в этой программы, какова её функция?

Например: Почему именно эти типы и зачем S....
Var K:array[1..10] of real;
S:real;
I,M:integer;
..........

Почемуб не написать Writeln сразу
For I:=1 to m do begin
Write (K[i]:4:2,'':3);
Writeln;
End;

.......... Зачем просить пользователя перезаписать элемент массива?
For I:=1 to M do
Begin
K[i]:=K[i]*X;
Write (K[i]:4:2,'':3);
Writeln;
Readln(K[i]);
End;

Я взял в качестве примера образец и начал оттуда выполнять

[Карась]

Сообщение от Дима82

Я взял в качестве примера образец и начал оттуда выполнять

Это глупо. Надо разбирать чужие примеры и разбираться "почему имено так".

[Дима82]

Ну, так чё поможите... Желательно с объяснениями...

[Карась]

Ну вот то, что комрад Stilet написал, то и рассмотрим....

{т.к. некоторые значения переменых
не меняются в процесе работы программы
то их можно и нужно обьявить как
константы}
Const X = 10;


Var
    {Это не критично, но в этой программе яб
    использовал тип Integer.
    Но это на усмотрение программиста.}
    K : array[1..10] of real;
    S : real;
    I, M : integer;

Begin

{Процедурой Write мы выводим на экран сообщение для
пользователя. В отличии от Writeln, Write не делает
переход на новую строку}
Write('BBedute 4uclo elementov macciva <=10: ');

{Идёт ожидание введёного значения от клавиатуры.
При нажатии Ентер переменной М будет присвоено
введёное значение и произойдёт переход на новую строку
аналогично как и в процедуре Write/Writeln}
Readln(M);

{Для обработки массива обычно используют циклы.
В данном примере использован цикл For.
Переменая I с каждым проходом цикла увеличивается
на единицу. Цикл завершится как только переменая I
будет равна переменой M. Если в цикле нужно выполнить
одно какоелибо действие то блок Begin End можно не
ставить. В противном случае (как в данный момент)
блок Begin End необходим, потому что выполняются
множество операций.}
For I:=1 to M do  
  Begin
    Write('K[',I,']=');

    {Обращение к одномерному массиву осуществляется по
    индексу. Где в квадратных скобках указан номер
    индекса.}
    Readln(K[i]);

    {Идёт обращение к элементу массива.
    Этому индексу присваивается тоже значение
    но умноженое на число х.}
    k[i] := k[i] * x;

    {Блок If Then Else.
    Блок ветвление. Он позволяет принимать некоторые решения
    при сравнение чисел или других значений.
    If <условие> Then <Если Да то...> Else <Если нет то...>
    Если надо обработать сразу несколько условий то их заключают
    в скобки как в данном примере
    If (<Условие 1>) Or (<Условие 2>) Or (<Условие 3>) Then .......
    Or - Или, And - и.
    Аналогично как и с циклом выставляется блок Begin End}
    if (k[i]<0)or(k[i]>100) then; {неа за пределами}

  End;

{Не даёт программе завершится. Ждёт нажатия клавиши Ентер}
readln;

End.

[Дима82]

Program Lb4;
Uses crt;
Const X=10;
Var K:array[1..10] of real;
    S:real;
    I,M:integer;
Begin
Clrscr;
Write('BBedute 4uclo elementov macciva <=10: ');
Readln(M);
For I:=1 to M do
 Begin
  Write('K[',I,']=');
  Readln(K[I]);
 End;
Writeln;
Writeln('Kontrolnyi Byvod matricy: ');
For I:=1 to M do begin
Write (K[I]:4:2,'':3);
Writeln;
End;
Writeln('Umnoschim massiv na X: ');
For I:=1 to M do
 Begin
 K[I]:=K[I]*X;
 If (K[I]<0) or (K[I]>100) then;
 Writeln (K[I]:4:2,'':3);
 Readln(K[I]);
Writeln('4isla ne vhodiawie v interval: ');
 For I:=1 to M do
 If (K[I]>0) or (K[I]<100) then
 Write (K[I]:4:2,'':3);
 End;
Writeln('Koli4estvo komponentov: ');
 If (K[I]>0) or (K[I]<100) then
 S:=I;  
 Write(S:4:2,'':3);
 Readln;
End.

Какая-то ерунда получается, подправьте, пожалуйста, моё решение...

[Карась]

Сообщение от Дима82

Какая-то ерунда получается, подправьте, пожалуйста, моё решение...

А что конкретно не нравится в этой "ерунде"?

[Дима82]

На экран выходит не тот что нужно:
1) Только первое число умножается на Х и надо ввести число, чтобы продолжить, потом это число заменяется вместо первого компонента.
2)"Числа не входящие в интервал" входят, те числа которые не должны входить.