Массив из 20 элементов. Числа от -500 до 500. В первой строке вывести только положительные, в другой-отрицательные. Это информатика. Паскаль. Заранее спс.
Массив из 20 элементов. Числа от -500 до 500. В первой строке вывести только положительные, в другой-отрицательные. Это информатика. Паскаль.
Заранее спс.
Гость
Ответ(ы) на вопрос:
Гостьconst n=20;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
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
Не нашли ответ?
Похожие вопросы