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

[Stilet]

Мда... Вышеприведенные посты пошли в пустую...

If (K[i]<0) or (K[i]>100) then;

Зачем по сто раз проверяешь?

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]);

Все тут 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]);
 End;
Writeln('4isla ne vhodiawie v interval: ');
 For I:=1 to M do
 Begin
 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.

А я понял надо было Readln убрать.

[Карась]

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]);   \\ - ?
End;

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

Если не засовывать всё в один цикл, то приблизительно можно написать:

Const X = 10;

Var K : Array [1..10] of Integer;
      I, M, S : Integer;

Begin
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: ');

S := 0;
For I := 1 To M Do
  Begin
    Write (K[i],' ');
    If (K[i] * X > 100) Or (K[i] * X < 0) Then S := S + 1;
  End;

Writeln;
Writeln(S);

Readln;
End.

[Дима82]

А как сделать так, чтобы показывало какие именно компоненты не вошли интервал. Что писать вместо этого...

Writeln('4isla ne vhodiawie v interval: ');
For I:=1 to M do
 Begin
 If (K[I]*X>100) or (K[I]*X<0) then
 Q:=K[I];
 Writeln(Q:4:2,'':3);
 End;

[Дима82]

Program Lb4;
Uses crt;
Const X=10;
Var K:array[1..10] of real;
    S,Q: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('Kontrolnyi Byvod matricy: ');
S:=0;
For I:=1 to M do begin
Writeln (K[I]:4:2,'':3);
If (K[I]*X>100) or (K[I]*X<0) then S:=S+1;
End;
Writeln('Umnoschim massiv na X: ');
For I:=1 to M do
 Begin
 K[I]:=K[I]*X;
 Writeln (K[I]:4:2,'':3);
 If (K[I]>100) or (K[I]<0) then Q:=K[I];
 End;
Writeln('4isla ne vhodiawie v interval: ',Q:4:2,'':3);
Writeln('Koli4estvo komponentov nahoditsia vne intervala: ',S:4:2,'':3);
 Readln;
End.

Почему 4isla ne vhodiawie v interval выходит только одно число?

[puporev]

Writeln('4isla ne vhodiawie v interval: ',Q:4:2,'':3);

Вы эту строку зачем из цикла убрали? Потому и выводит только одно число.

[Дима82]

А теперь выходят все числа...

[puporev]

If (K[i]>100) or (K[i]<0) then 
     begin  
       Q:=K[i];   
       Writeln('4isla ne vhodiawie v interval: ',Q:4:2,'':3); 
 End;

[Дима82]

Да, действительно как я сам не догадался... Спасибо!!!

[puporev]

Q:=K[i]; //эта строчка вообще лишняя, можно без нее
Writeln('4isla ne vhodiawie v interval: ',K[i]:4:2,'':3);