+
1 3 123
1 10 22

: ? !

  1. #1

    22.01.2008
    6
    ()
    0
    : 0 (: 0).

     ? !

    ? , !

  2. #2
    bigfoot       bigfoot
    17.07.2007
    94
    ()
    0
    : 0 (: 0).

    for i:=1 to n do
    readln (mass[i]);

  3. #3

    22.01.2008
    6
    ()
    0
    : 0 (: 0).

    ! ? .

  4. #4
    MupoTBopeu       MupoTBopeu
    06.10.2007
    127.0.0.1
    2,881
    ()
    0
    : 2 (: 2).

    Дайроне, ?

  5. #5
    Dimastar53       Dimastar53
    08.09.2007
    449
    ()
    0
    : 0 (: 0).

    const N=100
    var
    x: array [1..N] of integer;
    i:integer;
    begin
    for i:=1 to N do
    begin
    readln(x[i])
    end;
    end.
    readln(x[i]) ";" .
    . .
    , ; , .

  6. #6
    ncuxo       ncuxo
    31.01.2008
    155
    ()
    0
    : 0 (: 0).

    program pr_1;
    uses crt;
    const n=10;
    var a:array [1..n] of integer;
    i:integer;
    begin
    clrscr;
    for i=1 to n do
    begin
    writeln(' ',i,' ');
    readln(a[i]);
    end;
    for i=1 to n do
    write(a[i],' ');
    readkey;
    end.
    , ( ).

  7. #7
    bingo       bingo
    27.11.2007
    64
    ()
    0
    : 0 (: 0).

    const n=10;
    var a[1..n]:array of integer;
    i:integer;
    begin
    for i:=1 to n do
    begin
    write(' ',i,' : ');
    readln(a[i]);
    end
    readln;
    end;
    : ...

  8. #8

    22.01.2008
    6
    ()
    0
    : 0 (: 0).

    Dimastar53
    const N=100
    var
    x: array [1..N] of integer;
    i:integer;
    begin
    for i:=1 to N do
    begin
    readln(x[i])
    end;
    end.
    readln(x[i]) ";" .
    . .
    . . , - . while?

  9. #9
    Dimastar53       Dimastar53
    08.09.2007
    449
    ()
    0
    : 0 (: 0).

    , - . while?
    , :
    const N=3000
    var
    x: array [1..N] of integer;
    i:integer;
    ch:char;
    begin
    ch:=d;
    while ch<> 'y' do
    begin
    write('Input x',i,);
    readln(x[i]);
    writeln("? y-/n-");
    readln(ch);
    end;
    end.
    , 1- 1-
    3
    , ; , .

  10. #10
    MupoTBopeu       MupoTBopeu
    06.10.2007
    127.0.0.1
    2,881
    ()
    0
    : 2 (: 2).

    , 5 - .

    var
    a:array of integer;

    : SetLength(a, );
    SetLength (a, +); .