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

Ответы

FireFlyWasDeadBefore 09.06.2020 01:20

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]<k1)then k1:=A[i];

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

End;

K:=k1+k2;

For i:=1 to N do begin

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

End ;

For i:=n downto 1 do begin

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

End;

End.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Nodukam 14.07.2019 10:40

Jordano23Mirra 14.07.2019 10:40

basarabbozya 14.07.2019 10:30

H2Oя 14.07.2019 10:30

ГригорийСвинатович13 14.07.2019 10:10

AnnaKhusainova 15.07.2019 12:40

wowanuch72 15.07.2019 12:40

meimanby 15.07.2019 12:50

Nastya3748 15.07.2019 12:50

KseshaMail 15.07.2019 12:50