Массивы

[joker52899]

Помогите написать программу, пожалуйста!

Написать алгоритм решения задачи "В заданном одномерном массиве A [1 .. n] все отрицательные элементы расположить в массиве С."

[ZX Spectrum-128]

K:=0;
For i:=1 to n do
If a[i]<0 then
  Begin
    K:=k+1;
    C[k]:=a[i];
  End;

[joker52899]

а можно полную программу

[ZX Spectrum-128]

Тут осталось-то ...
Ввод, вывод массива и описание переменных. Сами напишете.

[joker52899]

const n = 5;
var k,i:integer;
a:array[1..n] of integer;
C:array[1..n] of integer;
begin
K:=0;
For i:=1 to n do
If a[i]<0 then
Begin
K:=k+1;
C[k]:=a[i];
End;
end.

не работает

[ZX Spectrum-128]

И не будет работать. Ввода массива а нет. Добрый компилятор все элементы забил в 0. Соответственно, отрицательных нет.
Ввод массива а добавьте.

[joker52899]

const n = 5;
var k,i:integer;
a:array[1..n] of integer;
C:array[1..n] of integer;
begin
for i := 1 to n do
begin
write('elementi massiva: ');
read(A[i]);
end;
K:=0;
For i:=1 to n do
If a[i]<0 then
Begin
K:=k+1;
C[k]:=a[i];
End;
end.

всё равно не работает

[ZX Spectrum-128]

А какие числа вводили и как?
Readln(a[i]); вместо read попробуйте

[joker52899]

ВСЁ ПОНЯЛ:D СПАСИБО

[joker52899]

writeln('elementi', C[k]);