Дан массив. Вывести на экран сначала его неотрицательные элементы, затем отрицательные.
Дан массив. Вывести на экран сначала его неотрицательные элементы, затем отрицательные.
Гость
Ответ(ы) на вопрос:
Гостьvar m:array[1..100] of integer;
i,n:integer;
begin
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ');
end.
ГостьVar m:array[1..100] of integer;
i,n:integer;
begin
write('Введите размерность массива: ');readln(n);
writeln('Введите массив: ')
for i:=1 to N do
readln(m[i]);
writeln('Массив: ');
for i:=1 to N do
if M[i]>0 then write(M[i],' ');
for i:=1 to N do
if M[i]<0 then write(M[i],' ');
end.
Не нашли ответ?
Похожие вопросы