Чёрно-белое (без градаций серого) растровое графическое изображение имеет размер 50 x 50 точек определите его информационный объём в битах.

Для хранения информации о цвете точки в черно-белом изображении без градаций серого требуется один бит. Следовательно всего понадобится 1 * 50 * 50 бит = 2500 бит

Ввод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знакомProgram Massiv2; 
  const N=10;
  type { Раздел описания типов переменных. Эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел }
    Mas=array [1..N] of integer; { 1..N - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до N. где N определено в разделе const }
  var
      Line:Mas; { Line - одномерный массив, его тип определен нами как Mas }
      i:integer; {Переменная, хранящая индекс элемента массива, к которому идет обращение }
begin
{ Ввод массива с клавиатуры }
  for i:=l to N do { Обращение к элементам массива происходит в цикле, по очереди }
    begin { Начало цикла ввода элементов массива }
      write('Введите элемент с индексом ' ,i,' :');
      readln(Line[i]) { Обращаемся к i-му элементу массива (Line[l],Line[2] и т. д.)}
    end; { Конец цикла ввода элементов массива }
{ Вывод элементов происходит также в цикле:}
  for i:=l to N do { Перебираем все N элементов массива }
    write(-Line[i]:5); { 10 элементов выводятся в строку. Выводим все элементы массива с противоположным знаком }
  writeln; { После вывода массива элементов - переход на новую строку } 
  readln 
end.

Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);

const n=3; m=4;
var a:array[1..n,1..m] of integer;
var i, j, count:integer;
begin 
count:=0; 
for i:=1 to n do begin 
for j:=1 to m do begin 
a[i,j]:=random(100)-50; 
write(a[i,j]:3, ' '); 
end; 
writeln; 
end; 
for i:=1 to n do  
for j:=1 to m do begin 
if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count+1; 
end; 
writeln('Количество отрицательных нечетных элементов: ', count);
end.