Есть ответ 👍

Дан массив. определить является ли номер минимального элемента четным

108
194
Посмотреть ответы 2

Ответы на вопрос:


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 байт. Каков был размер исходного файла в байтах?

Популярно: Информатика