Одномерные массивы 2 (Pascal)

[Дима82]

Помогите написать новый массив, входящие в интервал от -5 до 10...

Program kz4;
Uses crt;
Var K,C:array[1..10] of 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: ');
For I:=1 to m do begin
Writeln(K[I]:4:2,'':3);
End;
Writeln('Novyi massiv: ');
For I:=1 to m do begin
If (K[I]>=-5) and (K[I]<10) then C[I]:=K[I];
Writeln(C[I]:4:2,'':3);
End;
Readln;
End.

[puffin]

Объясни повнятнее...

[Olympian]

#
# If (K[i]>=-5) and (K[i]<10) then C[i]:=K[i];
# Writeln(C[i]:4:2,'':3);
Во первых - заведи переменную J - которая отвечает за то, ск-ко эл-в в в массиве C
и делай так
If (K[i]>=-5) and (K[i]<10) then
begin
C[J]:=K[i];
Writeln(C[i]:4:2,'':3);
J := J+ 1;
end;

[Дима82]

Всем, спасибо, задача решена.

[K@MMUN1$t]

очень срочно нужно.
Составить и отладить программу, обеспечивающую ввод массива символьных строк.
Сформировать из произвольно заданного одномерного массива символьных строк массив, элементы которого состоят из строк исходного массива, начинающихся латинскими буквами.