Question

Составьте программу, которая заполняет массив из 20 элементов случайными целыми числами от -50 до 50и выводит на экран сначала все отрицательные элементы, а затем все положительные элементы

Answer 1

Ответ:

program test;

var i: integer;

a:array [1..20] of integer;

begin

randomize;

for i := 1 to 20 do

begin

a[i] := random (101)-50;

write (a[i]:5)

end;

writeln;

for i := 1 to 20 do if a[i] < 0 then write (a[i]:5);

for i := 1 to 20 do if a[i] > 0 then write (a[i]:5);

end.

Объяснение:

Сначала вывод всего массива, после в 1 строку сначала отрицательные, а за ними положительные (0 не выводится)