Ксюшенька

все равно жалуется!!!

Ксюшенька

ту же самую ошибку пишет)

Vladimir_S

Полный бред!
Значит так. Листинг последней версии - в студию! Причем именно через copy-paste. Хочу на него посмотреть.

Ксюшенька

var
mas,m1,m2:array[1..10] of Integer;
i,j1,j2:integer;
P:real;

begin
Randomize;
for i:=1 to 10 do
begin
mas[i]:=10-Random(20);
Write(mas[i]:5);
end;
writeln;
P:=1.0;
for i:=1 to 5 do
P:=P*mas[2*i];
writeln('Product of even-placed elements = ', P:0:0);

j1:=0;
j2:=0;
for i:=1 to 10 do
begin
if mas[i]>=0 then
begin
j1:=j1+1;
m1[j1]:=mas[i];
end
else
begin
j2:=j2+1;
m2[j2]:=mas[i];
end;
end;
for i:=1 to j1 do
mas[i]:=m1[i];
for i:=j1+1 to 10 do
mas[i]:=m2[i-j1];
for i:=1 to 10 do
write(mas[i]:5);
readln
end.[/CODE][/QUOTE]

Vladimir_S

Дорогая Ксюшенька, мне очень жаль, но больше я ничем помочь не могу. Сейчас скопипастил ваш листинг к себе - и транслируется, и запускается, и считает. Ошибок нет.
Так что либо у Вас совсем никудышный глючный Паскаль, либо неполадки в системе (перегрев процессора, сбойная ОЗУ, вирус, наконец, и т.д. и т.п.).
Увы!

Ксюшенька

Ну, все равно большое спасибо!Я очень Вам благодарна...будем пробовать на другом компьютере.)))