№1 .Растровое изображение, сохраненное без дополнительной
информации и сжатия данных, передавалось по каналу связи в пункт А в
течение 48 секунд.
Изображение преобразовали, уменьшив его в 2 раза по ширине и в 2
раза по высоте.
После уменьшения изображение было сохранено в формате со сжатием
информации, при этом размер изображения уменьшился еще в 3 раза.
Определите, за какое время новое изображение будет передано в пункт
Б, если известно, что пропускная канала в пункт Б в 8 раз
ниже, чем канала в пункт А. ответ выразите в секундах. В ответе укажите
только число.
№2 Производится двухканальная (стерео) запись звука с качеством 16
бит и частотой оцифровки 128 кГц. Длительность звука 4 секунды.
Сжатие данных не производится. Определите информационный
объем полученной записи и выразите его в Кбайт.

Язык не задан, поэтому я напишу только алгоритм.
1) Вводим массив A(10, 10)
2) Открываем пустой массив из одной строки B(10)
3) flag = 0
4) Цикл по i от 1 до 9
4.1) Цикл по k от 1 до 10 (по столбцам)
4.1.1) Копируем i-ую строку из массива А в массив В
4.2) Конец цикла по k
4.3) Цикл по j от i + 1 до 10 (по строкам)
4.3.1) Цикл по k от 1 до 10 (по столбцам)
4.3.1.1) Сравниваем j-ую строку массива А и массив В
4.3.2) Конец цикла по k
4.3.3) Если строки равны, то выводим их на экран.
4.4) Конец цикла по j
5) Конец цикла по i
6) Конец
Коротко говоря, алгоритм такой.
Сравниваем 1 строку со всеми от 2 до 10. Если строки совпали - выводим их на экран. Можно вывести только номера, можно сами строки.
Переходим ко 2 строке. Ее сравниваем от 3 до 10. И так далее.
Последнюю 9 строку сравниваем только с 10.

1. "Школьное" решение
// PascalABC.Net 3.0, сборка 1064
var
  i,n1,n2:integer;
  s:longint;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  s:=0;
  if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
  while i<=n2 do begin s:=s+i; i:=i+2 end;
  Writeln('Сумма четных чисел в интервале равна ',s)
end.

Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44

2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
  n1,n2:integer;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  if Odd(n1) then Inc(n1);
  Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum);
end.