Задан массив В(N).Переписать...

Тема в разделе "Информатика", создана пользователем АЯй, 28 фев 2010.

  1. АЯй

    АЯй New Member

    Задан массив В(N).Переписать в начало массива положительные элементы, сохраняя порядок следования.Отпечатать преобразованный массивВ.
     
  2. Sonik

    Sonik New Member

    Program zadacha;
    uses crt;
    var b:array[1..100] of real;
       i,n:integer;
    begin
    readln(n);
    for i:=1 to n do
    read(b);
    for i:=1 to n do
    if b>0 then writeln(b);
    for i:=1 to n do
    if b<0 then writeln(b);
    end.
    {В задаче ничего не сказано за 0}

     

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

Наша группа