Чем отличаются цифровые камеры от пленочных

Отличие в обработке изображения, если в пленочной камере изображение поступает на пленку и на ней же и остается без дополнительной обработки, то в цифровой пленка заменена на светочувствительную матрицу, с которой изображение в виде напряжений поступает на преобразователь и далее в виде цифрового кода записывается в память.
Оптика используется одинаковая, на цифровую "зеркалку" можно вешать объективы от плёночной зеркалки и наоборот, на цифровых "мыльницах" из-за маленького размера матрицы, размер объектива меньше чем у пленочного.
Чувствительность определяется размером пикселя на матрице или пленке. А разрешение определяется размером кадра или матрицы. Механика самого аппарата тоже практически одинакова, тот же затвор, таймеры на выдержку, у цифры есть ещё электронный аналог затвора, видоискатель дополнен ЖК дисплеем, нет лентопротяжного механизма.

1. Решение для "школьников"

// PascalABC.NET 3.0, сборка 1073
var
  i,n:integer;
  s:string;
begin
  Write('Введите свое имя: '); Readln(s);
  if s[1]='И' then begin
    n:=Length(s)-1;
    s:=s[1];
    for i:=1 to n do s:=s+'*'
  end;
  Writeln('Результат работы: ',s)
end.

Тестовое решение:
Введите свое имя: Игорь
Результат работы: И

Введите свое имя: Сергей
Результат работы: Сергей

2. Решение, каким оно должно быть, но этому не учат

// PascalABC.NET 3.0, сборка 1073
begin
  var s:=ReadString('Введите свое имя: ');
  if s[1]='И' then s:=s[1]+StringOfChar('*',Length(s)-1);
  Writeln('Результат работы: ',s)
end.

Const
   maxElements = 1000;
var  arr : array[1..maxElements, 1..maxElements] of integer;
  counterArray : array[1..maxElements] of integer;
  i, j, n, m, countOfPositive: integer;
begin
  write('Введите количество строк: ');
  readln(n);
  write('Введите количество столбцов: ');
  readln(m); writeln('Введите элементы массивы');
  for i:=1 to n do
    for j:=1 to m do
      read(arr[i,j]);
 
  countOfPositive := 0;
  for j:=1 to m do
    begin
      for i:=1 to n do
        if arr[i,j] > 0 then Inc(countOfPositive);
      counterArray[j] := countOfPositive;
      countOfPositive := 0;
    end;
    writeln('Количество положительных элементов в каждом столбце');
  for j:=1 to m do
    write(counterArray[j], ' ');
end.