составьте программу , которая заполняет массив случайными целыми числами в диапозоне от 1 до 100 , затем меняет местами наименьший четный элемент с наибольшим нечетным элементом

Есть ответ
17.12.2022
439

Ответ


Program Pr1;uses crt;var mas:array[1..10] of integer; i,max,min,a,b:integer;Beginclrscr;max:=0;min:=150;randomize;for i:=1 to 10 do mas[i]:=1+random(100);for i:=1 to 10 do write(mas[i]);for i:=1 to 10 do begin if (mas[i] mod 2=0) and (mas[i]>max) then begin max:=mas[i]; a:=i; end; if (mas[i] mod 2=0) and (mas[i]


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.