Дан линейный массив. Нужно найти сумму минимального и максимального элемента мас...

October 2021 1 9 Report

Дан линейный массив. Нужно найти сумму минимального и максимального элемента массива, а также кол-во отрицательных элементов, стоящих на чётных местах, и вывести массив вычеркнув все нечетные значения.

Answers & Comments

fasalv Var a: array [1..1000] of integer; n, i, max, min, amount:integer;
begin
read(n);
for i := 1 to n do
read(a[i]);
max := a[1];
min := a[1];
amount := 0;
for i := 1 to n do
begin
if a[i] > max
then
max := a[i];
if a[i] < min
then
min := a[i];
if (i mod 2 = 0) and (a[i] < 0)
then
amount := amount + 1;
end;
writeln('Sum of min and max equals ',max + min);
writeln('Amount of numbers below zero and on even places: ', amount);
for i := 1 to n do
if i mod 2 = 0
then
write(a[i], ' ');
end.

napishite proceduru kotoraya vyvodit na ekran v stolbik vse cifry peredannogo ej ch843fdde4aa71c6cf3714e1f0a227f53a 15268

Answer

Railgun July 2022 | 0 Ответы

Answers & Comments

napishite proceduru kotoraya vyvodit na ekran v stolbik vse cifry peredannogo ej ch843fdde4aa71c6cf3714e1f0a227f53a 15268

v kakom pomeshenii bolshe molekul vozduha v kotorom rabotaet obogrevatel ili v

3=5.333333...

avtomorfnye chisla naturalnoe chislo nazyvaetsya avtomorfnym esli ono ravno posl

napishite programmu kotoraya vvodit naturalnoe chislo n i vyvodit na ekran n psev

рекомендуемые вопросы

Helpful Links

Helpful Social