В массиве D[1..n] удвоить все четные элементы и удалить второй и девятый элементы.
123дерево8:
Написать программу и нарисовать блок схему. язык програмирования паскаль
Инкогнито:
Надо указывать: четные по значению элементы, четные по порядку элементы или элементы с четными индексами. Во избежание разнотолков.
Ответ
1
const
maxn = 100;
type
myarr = array [1..maxn] of longint;
var
D: myarr;
n, i: longint;
begin
readln(n);
for i := 1 to n do begin
read(D[i]);
if (D[i] mod 2 = 0) then
D[i] := D[i] * 2;
end;
for i := 2 to (n - 1) do
D[i] := D[i + 1];
n := n - 1;
for i := 8 to (n - 1) do
D[i] := D[i + 1];
n := n - 1;
for i := 1 to n do
write(D[i], ' ');
end.
maxn = 100;
type
myarr = array [1..maxn] of longint;
var
D: myarr;
n, i: longint;
begin
readln(n);
for i := 1 to n do begin
read(D[i]);
if (D[i] mod 2 = 0) then
D[i] := D[i] * 2;
end;
for i := 2 to (n - 1) do
D[i] := D[i + 1];
n := n - 1;
for i := 8 to (n - 1) do
D[i] := D[i + 1];
n := n - 1;
for i := 1 to n do
write(D[i], ' ');
end.
Дополнительные материалы:
Ссори, не заметила, щас все будет
Уже не первый раз. Печально, каждый Ваш ответ приходится проверять...
Уже не надо,я проанализировал ваши ответы и написал один общий
Спасибо обоим
Печально, что администрация, видимо, не справляется, из-за чего вам приходится проверять мои ответы.
Не администрация, модераторы. Мало их. Администрация - это именно администрация, управляющая структура, она не обязана (да и не может) разбираться во всех предметах.
Здесь смотря что иметь ввиду под администрацией)) Потому что модераторы, как я понимаю, тоже входят в их число.
Кстати, Вы приняли что четные элементы - это четные по значению. А вот я принял, что четные - это по порядковому номеру. Виноват, конечно, автор некорректно поставленного вопроса.
Нет, модераторы - не администрация. Это отдельная структура с подчинением администрации.
Тут еще есть спамауты, Знатоки, архивариусы - они тоже не администрация, но и не модераторы. )))
Ответ
2
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
Пример
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
Пример
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2
Дополнительные материалы:
