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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
