Embedded Files
Среди задач преобразования элементов массива можно выделить задачи следующих типов:
Изменение элементов массива в зависимости от условий.
Обмен местами элементов массива.
Удаление элемента из массива.
Вставка элементов в массив.
Рассмотрим основные из них ниже.
Изменение элементов массива в зависимости от условий:
var a: array[1..20] of integer;
n: integer;
begin
write(ꞌКоличество n =ꞌ);
readln(n);
writeln(ꞌЭлементы массиваꞌ);
for var i := 1 to n do
read(a[i]);
for var i := 1 to n do
begin
if a[i] > 0 then
a[i] := a[i] * 2;
if a[i] < 0 then
a[i] := a[i] + 5;
end;
writeln(ꞌПреобразованный массивꞌ);
for var i := 1 to n do
write(a[i], ꞌ ꞌ);
end.
Обмен местами элементов массива.
var a: array[1..20] of integer;
n, n_min, n_max, buf: integer;
begin
write(ꞌКоличество n =ꞌ);
readln(n);
writeln(ꞌЭлементы массиваꞌ);
for var i := 1 to n do
read(a[i]);
n_min := 1;
n_max := 1;
for var i := 1 to n do
begin
if a[i] > a[n_max] then
n_max := i;
if a[i] < a[n_min] then
n_min := i;
end;
buf := a[n_min];
a[n_min] := a[n_max];
a[n_max] := buf;
writeln(ꞌПреобразованный массивꞌ);
for var i := 1 to n do
write(a[i], ꞌ ꞌ);
end.
Page updated
Google Sites
Report abuse