3. Массив из 10 элементов (заполнение определите самостоятельно). Найти наименьший из четных элементов. 4. Массив М[1..n] задан в диапазоне значений [-20..20]. Найти минимальный из положительных элементов и вывести его порядковый номер.
5. Массив из 11 элементов задан на интервале [-10; 12]. Найти максимальный элемент этого массива и переместить его на первое место в массиве.
Паскаль
Формула вычисления объема параллелепипеда
Общая формула Объем любого параллелепипеда равняется произведению площади его основания на высоту. V = Sосн ⋅ h. ...
Объем прямоугольного параллелепипеда Объем фигуры равен произведению его длины на ширину на высоту. V = a ⋅ b ⋅ c.
Объяснение:
Формула вычисления объема параллелепипеда
Общая формула Объем любого параллелепипеда равняется произведению площади его основания на высоту. V = Sосн ⋅ h. ...
Объем прямоугольного параллелепипеда Объем фигуры равен произведению его длины на ширину на высоту. V = a ⋅ b ⋅ c.
"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?
про пятеричные записи ничего не понял... :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию
var x,a,b: longint;
begin
for var i := 999 DownTo 100 do begin
a := 0;
b := 1;
x := i;
while x>0 do begin
if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);
x := x div 5;
end;
if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);
end;
end.
прога проводит расчет для всх трехзначных чисел от 999 до 100
итого мы видим что максимальное подходящее число это 960
при необходимости прогу можно переделать чтобы она находила только максимальное число.