Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые
Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые положительные значения от 1 до 10 000 включительно. Напишите на языке программирования Паскаль программку, которая обретает сумму малого из четных частей массива и малого из нечетных элементов массива, потом уменьшает все элементы массива, которые больше этой суммы, на величину этой суммы, на величину этой суммы, и выводит модифицированный массив в оборотном порядке, по одному числу в строке. Если в массиве нет четных либо нечетных частей, считается, что подходящий минимум равен 0. К примеру, из массива
7, 5, 2, 4, 8,10, 14, 15
программка обязана получить массив
7, 5, 2, 4, 1, 3, 7, 8
и вывести (по одному числу в строке) числа:
8 7 3 1 4 2 5 7
если массив заполняется случайными числами , то
var
mas: array[0..31]of word;
a, b, c: integer;
begin
b := 10000;
c := 10000;
for a := 0 to 29 do
begin
mas[a] := random(9999) + 1;
if mas[a] mod 2 = 0 then begin if mas[a] lt; b then b := mas[a]; mas[30] := mas[30] + 1; end;
if mas[a] mod 2 = 1 then begin if mas[a] lt; c then c := mas[a]; mas[31] := mas[31] + 1; end;
end;
if mas[30] = 0 then b := 0;
if mas[31] = 0 then c := 0;
for a := 0 to 29 do begin if mas[a] gt; c + b then mas[a] := mas[a] - c - b; writeln(mas[a]); end
end.
если массив заполняется вручную , то
label o;
var
mas: array[0..31]of word;
a, b, c: integer;
begin
b := 10000;
c := 10000;
for a := 0 to 29 do
begin
o:
read(mas[a]);
if (mas[a] lt; 1)or(mas[a] gt; 10000) then goto o;
if mas[a] mod 2 = 0 then begin if mas[a] lt; b then b := mas[a]; mas[30] := mas[30] + 1; end;
if mas[a] mod 2 = 1 then begin if mas[a] lt; c then c := mas[a]; mas[31] := mas[31] + 1; end;
end;
if mas[30] = 0 then b := 0;
if mas[31] = 0 then c := 0;
for a := 0 to 29 do begin if mas[a] gt; c + b then mas[a] := mas[a] - c - b; writeln(mas[a]); end
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.