В полученном векторе каждый третий элемент заменить на значение «-3»

@Seva_by · Регистрация: 07.03.2014

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

Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе каждый третий элемент заменить на значение «-3»

@VlaNik · 13.03.2014, 06:13

Pascal

uses crt;
var ax,c:array [1..100]of integer;
n,m,i,j,k,b:integer;
begin
clrscr;
randomize;
write('Введите n=');readln(n);
write('Введите k=');readln(k);
writeln('Исходный массив А:');
for i:=1 to n do
begin
ax[i]:=random(50)-10;
write(ax[i]:4);
end;
writeln;
writeln('Массив C:');
for i:=1 to k do
begin
c[i]:=random(50)-10;
write(c[i]:4);
end;
writeln;
for i:=1 to k do
begin
n:=n+1;
ax[n]:=c[i];
end;
writeln('Объединенный массив:');
for i:=1 to n do
write(ax[i]:4);
writeln;
for i:=2 to n do
begin
b:=ax[i];
j:=1;
while b>ax[j] do
inc(j);
for m:=i-1 downto j do
ax[m+1]:=ax[m];
ax[j]:=b;
end;
writeln('Объединенный отсортировочный массив:');
for i:=1 to n do
write(ax[i]:4);
writeln;
writeln('Объединенный отсортировочный массив после замены каждого третьего элемента на -3:');
for i:=1 to n do
begin
if (i mod 3)=0 then ax[i]:=-3;
write(ax[i]:4);
end;
end.

@Seva_by 0 / 0 / 0 Регистрация: 07.03.2014 Сообщений: 25
		1
	В полученном векторе каждый третий элемент заменить на значение «-3» 13.03.2014, 01:35. Показов 1048. Ответов 1 Метки нет (Все метки) Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе каждый третий элемент заменить на значение «-3» 0

Опции темы

В полученном векторе каждый третий элемент заменить на значение «-3»

Решение