Написать программу для...

Тема в разделе "Информатика", создана пользователем Bert, 7 фев 2010.

  1. Bert

    Bert New Member

    Написать программу для решения задачи в Паскале: "В массиве из десяти элементов переставить все нулевые элементы в началомассива."
     
    Bert, 7 фев 2010
    #1
  2. Kastet

    Kastet New Member

    Uses crt;
    var i,j,temp:integer;
    a:array[1..10] of integer;
    begin
    writeln('Inouyt elements:');
    for i:=1 to 10 do
    read(a);
    j:=1;
    for i:=1 to 10 do
    if a = 0 then
    begin
    temp:=a;
    a:=a[j];
    a[j]:=temp;
    inc(j);
    end;
    for i:=1 to 10 do
    write(a,' ');
    end.
     
    Kastet, 7 фев 2010
    #2

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

Наша группа