Создать программу, которая находит максимальное отрицательное число, кратное 2.

Program n1;
const n=10;
var a: array[1..n] of integer;
i,max: integer;
begin
randomize;
a[1]:=random(11)-10;
max:=a[1];
writeln('исходный массив:');
for i:=2 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (abs(a[i])<max) and (a[i] mod 2=0) and (a[i]<0)
then max:=a[i];
end;
writeln;
writeln('максимальный отрицательный,кратный 2: ',max);
end.

решал раньше , подставь свои данные только и всё

дано:

разрешающая способность сканера 600 х 600 dpi.

размер 10см x 15см.

глубина цвета - 3 байта.

найти:

каков информационный объём этого файла?

решение:

вначале переводим глубину
цвета из байт в биты

3 байта * 8бит в байте = 24 бит

вычисляем разрешение сканера в 1 дюйме квадрат

600*600 = 360 000 пикселей в 1 дюйм^2

переводим размер картинки из квадратных сантиметров в квадратные дюймы.

10см = 3.937дюйма

15см =
5,906дюйма

10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

вычисляем количество пикселей в изображении

23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

информационный объём вычисляем по формуле

количество пикселей * глубину цвета =

8
370 000 пикселей * 24 бит = 200 880 000 бит.

переводим в байты делением на 8.

25 110 000 байт

или же делим на 1024*1024 чтобы получить количество мегабайт

23,95 мегабайт

наибольшая поразрядная сумма может быть, если записаны три девятки, т.е. 27

2727 - удовлетворяет этому требованию. число 999999

277 - можно разбить только на 27'7. значит число имеет вид 999**. но сумма цифр 9** не может быть равна 7. не подходит.

2715 - разбиваем 27'15.
подходит. например, 99933

2730 - 27'30 не подходит

3027 - 30'27 не подходит

1527 - 15'27 подходит. например, 66999

727   - разбивается только на 7'27. значит, последние - три девятки. число **999. сумма цифр **9 не может быть равна 7. не подходит

512   -