• Массив из 20 элементов. Числа от -500 до 500. В первой строке вывести только положительные, в другой-отрицательные. Это информатика. Паскаль.
    Заранее спс.

Ответы 3

  • спс огромное чувак!!! Выручил
  • Пожалуйста. Не следует обращаться к незнакомому человеку "чувак".
  • const n=20;var a:array[1..n] of integer;i:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin a[i]:=random(1001)-500; write(a[i]:5); end;writeln;writeln('Положительные');for i:=1 to n do if a[i]>0 then write(a[i]:5);writeln;writeln('Отрицательные');for i:=1 to n do if a[i]<0 then write(a[i]:5);writeln;end.Пример (для n=10):Исходный массив:    6  -51  324 -174  -27  224  276 -437 -144 -490Положительные    6  324  224  276Отрицательные  -51 -174  -27 -437 -144 -490
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years