Паскаль!

  • Автор темы kirill97097
  • Дата начала
K

kirill97097

Гость
#1
Подскажите, что неправильно в выделенной части??? Пожалуйста! :rolleyes:

program thj;
uses crt;
var N, i, k: integer;
X, Y: array [1..20] of real;
begin
clrscr;
write ('vvedite razmer massiva N');
readln (N);
for i:=1 to N do
begin
write ('X[',i,']=');
readln (X);
end;
k:=0;
for i:=1 to N do
if X >0 then
begin
k:=k+1;
Y[k]:=X
end;
for i:=1 to N do
if X=0 then
begin
k:=k+1;
Y[k]:=X
end;
IF X < 0 then
begin
K:=k+1;
Y[k]:=x;
end;
write ('Otvet');
for i:=1 to N do
write (Y:5:1);
writeln;
readkey;
end.
 

vital

Больной Компом Детектед
29.01.2006
2 432
40
codeby.net
#2
научитесь считать бегины и енды. последнего вам не хватает, а бегин надо бы добавить после обьявления цикла(и еще 1 енд офк)..
 
K

kirill97097

Гость
#3
thank you very much!!!!! :rolleyes:
мне бы еще код верный, тогда бы жизнь была супер!!
 
09.11.2009
665
1
23
Киев
#4
1. Сделайте тему тут
2. Напишите условие и код(если есть), укажите что не так в коде(что не можете сделать, не выполняется, или выполняется но не так как надо).