Массив из 20 элементов. Числа от -500 до 500. В первой строке вывести только положительные, в другой-отрицательные. Это информатика. Паскаль.
Заранее спс.
Ответы
Ответ дал:
0
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
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
Ответ дал:
0
спс огромное чувак!!! Выручил
Ответ дал:
0
Пожалуйста. Не следует обращаться к незнакомому человеку "чувак".
Вас заинтересует
1 год назад
6 лет назад
9 лет назад