Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Помогите с массивами в паскале.

Никита Бурцев Ученик (96), на голосовании 1 месяц назад
Задан массив Х(N) (N<=90). Переписать отрицательные элементы массива Х последовательно в массив У, а положительные элементы массива Х – в массив Z. В массиве У найти максимальный элемент и его номер. Отпечатать сформированные массивы У и Z. В паскале. Срочно надо помогите пожалуйста
Голосование за лучший ответ
Закладки Ученик (128) 2 месяца назад
Познакомлюсь пишите на почту mixer961565@mail.ru
Кублен Оракул (94576) 2 месяца назад
Остальное - сам
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.
Похожие вопросы