массивы

[feanor5995]

Перепишите отрицательные массивы с четными индексами в массив-Т, а не с четными в массив-Р

[Stilet]

Покажешь как массив вводишь кодом?

[Endok70]

program zadz;
uses CRT;
var A,T,P:array[1.20] of Real;
N,i,j,k:integer;
begin
Writeln('Введите N');
Readln(N);
 For i:=1 to N do
 begin
 Write('Введите A[',i,']');
 Readln(A[i]);
 end;
clrscr;
j:=0;
k:=0;
 For i:=1 to N do
 Write(A[i]:5:1);

 For i:=1 to N
  If A[i]<0 then
   If i mod 2 = 0 then
   begin
   j:=j+1;
   T[j]:=A[i];
   end
   else
   begin
   k:=k+1;
   P[k]:=A[i];
   end;
Writeln;
Writeln('С четными индексами');
For i:=1 to j do
 Write(T[i]:5:1);
For i:=1 to k do
 Write(P[i]:5:1);
end.

[Stilet]

О! Так у тебя даже нарабока есть хорошая.
Только предлагаю ее максимально упростить:

program zadz;
uses CRT;
var A,T,P:array[1.20] of Real;
N,i,j,k:integer;
begin
Writeln('Введите N');
Readln(N);

 For i:=1 to N do
 begin
    Write('Введите A[',i,']');
    Readln(A[i]);
 end;

i:=1; j=1; while i<=19 do begin
 P[j]:=A[i]; inc(i); T[j]:=A[i]; inc(i);
 inc(j);
end;

Writeln('С четными индексами');
For i:=1 to j do
 Write(T[i]:5:1);

Writeln('С нечетными индексами');
For i:=1 to k do
 Write(P[i]:5:1);
end.

[Poma][a]

О! Так у тебя даже нарабока есть хорошая.

Если судить по никам, то эта два разных человека

[Stilet]

Хм... Да... Ты прав. Похоже у них раздвоение личности :/
Надо быть осторожнее... :D

[Endok70]

Я еще вернусь...

[Poma][a]

Надо быть осторожнее... :D

Я еще вернусь...

Надо быть намного осторожнее

[Stilet]

Надо быть намного осторожнее

Хай...
Похоже я не доживу до 2014 года... )

[Аватар]

Я что-то пропустил? Крюгер объявился, что-ли?