Заполнить массив n элементов , затем сохранить в массив n2 четные элементы деленные на 2 , а четные умноженные на 2 . Вывести на экран исходный массив , после чего с первого массива вычесть 2 и вывести на экран изменённый первы...
Заполнить массив n элементов , затем сохранить в массив n2 четные элементы деленные на 2 , а четные умноженные на 2 . Вывести на экран исходный массив , после чего с первого массива вычесть 2 и вывести на экран изменённый первый массив.
Гость
Ответ(ы) на вопрос:
Гостьconst N=10;
var i, j: byte;
n1, n2: array [1..N] of integer;
begin
j := 1;
for i := 1 to N do
begin
n1[i] := random(100);
writeln('n1[', i, '] => ', n1[i]);
end;
writeln('-----------------');
for i := 1 to N do
begin
if (n1[i] mod 2 = 0) then
begin
n2[j] := n1[i];
inc(j);
n1[i] := n1[i] * 2;
end;
end;
for i := 1 to N do
writeln('n1[', i, '] => ', n1[i]);
for i := 1 to j do
writeln('n2[', i, '] => ', n2[i]);
end.
Если я правильно понял, то вот так =)
Не нашли ответ?
Похожие вопросы