Учеба и наука

Решено

Поместить цифру 0 на первую... - вопрос №668114

Поместить цифру 0 на первую позицию вектора, состоящего из чисел 5 3 7 8 без использования другого вектора

июнь 22, 2013 г.

  • Всего ответов: 1

  • Валентина - аватарка

    Валентина

    3-й в

    program vector;

    uses crt;

    var a:array[1..5] of integer;

    i:integer;

    begin

    clrscr;

    writeln('vvedite 4 znachenia 5 3 7 8 libo drugie');

    for i:=1 to 4 do readln(a[i]);

    for i:= 4 downto 1 do a[i+1]:=a[i];

    a[1]:=0;

    for i:=1 to 5 do write(a[i]:8); 

    readln  

    end. 

    Буду благодарна, если отметите 

    июнь 22, 2013 г.
    Ответ понравился автору
    Лучший ответ по мнению автора

Похожие вопросы