Дан целочисленный массив из 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

Задать свой вопрос
1 ответ

Const n=30;

Var i, k, k1, k2:Integer ;

A:array [1..10001]of Integer ;

Begin

For i:=1 to N do begin

A[i]:=random(10001);

Write(' A[', i, ']=', A[i]) ;

End;

Writeln;

K1:=10001;k2:=10001;

For i:=1 to N do begin

If (A[i] mod 2=0)and(A[i]lt;k1)then k1:=A[i];

If (A[i] mod 2=1)and(A[i]lt;k2)then k2:=A[i] ;

End;

K:=k1+k2;

For i:=1 to N do begin

If A[i]gt;k then A[i]:=A[i]-k;

End ;

For i:=n downto 1 do begin

Writeln(' A[', i, ']=', A[i]) ;

End;

End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт