Никита Бурцев
Ученик
(96),
на голосовании
1 год назад
Задан массив Х(N) (N<=90). Переписать отрицательные элементы массива Х последовательно в массив У, а положительные элементы массива Х – в массив Z. В массиве У найти максимальный элемент и его номер. Отпечатать сформированные массивы У и Z. В паскале. Срочно надо помогите пожалуйста
Остальное - сам program massiv; uses crt; var i,n:integer; x:array[1..100] of integer; BEGIN randomize; clrscr; writeln; write('Vvesti N: '); readln(n); writeln('Vektor B: '); for i:=1 to n do begin x[i]:=random(101)-50; write(x[i]:3); end; writeln; end.