Решение задач на обработку одномерных массивов. Использование массивов в качестве параметров в подпрограммах

@Vova_Sim · Регистрация: 07.11.2012

Студворк — интернет-сервис помощи студентам

В массиве x(n) подсчитать количество положительных k1 и количество отрица-тельных k2 элементов. Если k=|k1-k2|>1 , то изменить знаки стольких положительных или отрицательных элементов, чтобы выполнялось условие K<=1 . Нулевые элементы при определении k1 и k2 не учитывать.

@Puporev · 11.03.2013, 11:52

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k1,k2,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
k1:=0;
k2:=0;
for i:=1 to n do
 begin
  a[i]:=-25+random(50);
  write(a[i]:4);
  if a[i]>0 then inc(k1)
  else if a[i]<0 then inc(k2)
 end;
writeln;
k:=abs(k1-k2);
writeln('k=',k);
if k<=1 then write('Элементы не меняются')
else
 begin
  i:=1;
  j:=0;
  while(i<=n)and(j<k div 2) do
   begin
    if ((k1>k2)and(a[i]>0))or((k2>k1)and(a[i]<0)) then
     begin
      a[i]:=-a[i];
      inc(j);
     end;
    inc(i);
   end;
  writeln('Массив после изменений:');
  for i:=1 to n do
  write(a[i]:4);
 end;
readln
end.

@Vova_Sim 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 50
		1
	Решение задач на обработку одномерных массивов. Использование массивов в качестве параметров в подпрограммах 11.03.2013, 00:28. Показов 2630. Ответов 1 Метки нет (Все метки) В массиве x(n) подсчитать количество положительных k1 и количество отрица-тельных k2 элементов. Если k=\|k1-k2\|>1 , то изменить знаки стольких положительных или отрицательных элементов, чтобы выполнялось условие K<=1 . Нулевые элементы при определении k1 и k2 не учитывать. 0

	11.03.2013, 11:52

Опции темы