Ответы на вопрос:
var a: array [1..10] of integer;
i,k: integer;
begin
read(a);
k: =1;
for i : = 1 to 10 do
begin
if a[k]> a[i] then k: =i;
end;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
end.
1. Дисплей работает с 128-цветной палитрой в режиме 64*64 пикселей. Сколько требуется Кбайт для кодирования всего изображения?
2. После преобразования растрового 256-цветного графического файла в черно-белый двухветный формат его размер уменьшится на 70 байт. Каков был размер исходного файла в байтах?
Популярно: Информатика
-
кккк5123.11.2020 20:45
-
keggen24.01.2021 12:22
-
hamster132424.12.2020 01:58
-
markiza66629.05.2021 09:24
-
Лейла199427.06.2023 18:50
-
MikassaSwag02.02.2020 01:26
-
ЖЕНDOS77712.08.2021 16:46
-
RU201714.03.2023 16:40
-
Совунья1109.02.2020 18:35
-
Леночка17711.05.2020 02:13