После каждого отрицательного числа вставить модуль этого числа

@bombom · Регистрация: 20.12.2013

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

После каждого отрицательного числа вставить модуль этого числа.

@Puporev · 24.01.2014, 12:50

Pascal

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

@bombom 3 / 3 / 1 Регистрация: 20.12.2013 Сообщений: 106
		1
	После каждого отрицательного числа вставить модуль этого числа 24.01.2014, 12:42. Показов 1923. Ответов 1 Метки нет (Все метки) После каждого отрицательного числа вставить модуль этого числа. 0

	24.01.2014, 12:50

После каждого отрицательного числа вставить модуль этого числа

Решение