Паскаль

Тема в разделе "Delphi - FAQ", создана пользователем Rusl, 4 дек 2008.

Наш партнер Genesis Hackspace
  1. Rusl

    Rusl Гость

    Помогите кто-нибудь решить задачу по Паскалю. Сам плоховато разбираюсь в этом.
    Задача:
    Дан линейный массив из n-элементов. Все положительные элементы массива заменить на 0, а отрицательные на -1.
     
  2. Sanya08

    Sanya08 New Member

    Регистрация:
    7 дек 2008
    Сообщения:
    1
    Симпатии:
    0
    В общем прога вот:

    program zad3;
    var i,n:integer;
    var massiv:array[1..100] of integer;
    begin
    writeln('Vvedite kolichestvo elementov n');
    readln(n);
    writeln('Vvedite ',n,' elementov cherez probel');
    for i:=1 to n do
    read(massiv);
    for i:=1 to n do
    if massiv<0 then massiv:=-1
    else massiv:=0;
    writeln('Obrabotannui massiv:');
    for i:=1 to n do
    write(massiv,' ');
    readln;
    readln;
    end.

    Надеюсь на благодарность, в виде финансовой помощи.
     
Загрузка...

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