1. Для кодирования одного пикселя используется 2 байта. Фотографию размером 1024´1024 пикселей сохранили в виде несжатого файла. Определите размер получившегося файла в килобайтах

Объяснение:

Во вложении

1)немного не понял фразу "меньше данного числа 2". если найти сумму всех элементов, которые меньше двух в массиве размером 20 элементов, то это  var s,i: longint; m: array[1..100] of integer; begin for i: =1 to 20 do   read(m[i]); s: =0; for i: =1 to 20 do   if m[i]< 2 then s: =s+m[i]; writeln(s); end. 2) var i: longint; m: array[1..100] of integer; begin for i: =1 to 20 do read(m[i]); for i: =1 to 20 do if (m[i] mod 5=3) then writeln(m[i]); end. 3) var a,b,i: longint; m: array[1..100] of real; begin read(a); read(b); for i: =1 to 20 do read(m[i]); for i: =1 to 20 do if (m[i]> =a) and (m[i]< =b) then writeln(i); end. 4)var o,s,i: longint; m: array[1..100] of integer; begin for i: =1 to 20 do begin read(m[i]); s: =s+m[i]; end; o: =s div 20; for i: =1 to 20 do if m[i]> o then writeln(m[i]); end.   прошу прощения, если есть ошибки в синтаксисе. нет возможности проверить в компиляторе