Паскаль!

Тема в разделе "Другие задачи", создана пользователем kirill97097, 2 май 2010.

  1. kirill97097

    kirill97097 Гость

    Подскажите, что неправильно в выделенной части??? Пожалуйста! :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.
     
  2. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.474
    Симпатии:
    27
    научитесь считать бегины и енды. последнего вам не хватает, а бегин надо бы добавить после обьявления цикла(и еще 1 енд офк)..
     
  3. kirill97097

    kirill97097 Гость

    thank you very much!!!!! :rolleyes:
    мне бы еще код верный, тогда бы жизнь была супер!!
     
  4. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    1. Сделайте тему тут
    2. Напишите условие и код(если есть), укажите что не так в коде(что не можете сделать, не выполняется, или выполняется но не так как надо).
     
Загрузка...

Поделиться этой страницей