Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дан Массив Х(N). Найти в массиве количество отрицательных и положительных элементов. Если больше отрицательных, то положительные элементы заменяются на нули. В противном случае - отрицательные.

Просмотров: 451
Объяснение: +
Отзывов: 0

РЕШЕНИЕ:

program p1; var A:array[1..100] of integer; {переменная массива } i,n:integer;{переменная цикла и размера массива} countPOSIT,countNEG:integer; begin write ('Vvedite razmer massiva A: '); {вывод на экран фразы } readln (n); {считываем с клавы размер массива} for i:=1 to n do begin write ('A[',i,']='); readln (A[i]); end;{ считываем с клавы элементы массива } write ('Vot vvedennyy vami massiv A: '); {вывод на экран фразы } for i:=1 to n do write (A[i],' '); {вывод на экран элементов массива } writeln; countPOSIT:=0;countNEG:=0; {обнуляем переменные кол-ва } for i:=1 to n do {циклом идём по массиву } if A[i]<0 then inc(countPOSIT) {+1 для положительных} else inc(countNEG); {+1 для отрицательных} if countNEG>countPOSIT then {Если больше отрицательных } begin for i:=1 to n do if A[i]>0 then A[i]:=0 {то положительные элементы заменяются на нули} end else {В противном случае } begin for i:=1 to n do if A[i]<0 then A[i]:=0 {то отрицательные элементы заменяются на нули} end; write ('Vot preobrazovannyi massiv A: '); {вывод на экран фразы } for i:=1 to n do write (A[i],' '); {вывод на экран элементов массива } readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.