Паскаль. Дан двумерный массив, необходимо найти количество элементов, кратных 5.
Набросала, что смогла. Понимаю, что у знающих людей скорее всего кровь из глаз потечет, но если на деле не все так плохо, подскажите, где ошибки.
program a2;
var
n,m,a,b,i,j,s :integer;
mmas: array [1..50,1..50] of integer;
begin
i:=0;
j:=0;
writeln ('Размерность массива (числа от 1 до 49): ');
read (m,n);
for a:= 1 to n do
for b:= 1 to m do
mmas[a,b]:= random (49);
for i:= 1 to 49 do
for j:= 1 to 49 do
if (a[i] mod 5=0) then i:=1+i;
repeat i:=1+i until a=49;
if (b[i] mod 5=0) then j:=1+j;
repeat j:=1+j until b=49;
s:=i+j;
writeln (s);
end.

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j,max,maxj,a:integer;
begin
max:=-1;
randomize;
 writeln('Matrix:');
  for i:=1 to n do
   begin;
   for j:=1 to n do
    begin;
     ma[i,j]:=random(10);
     write(ma[i,j]:4);
    end;
   writeln;
   end;
  for j:=1 to n do
  begin
   for i:=1 to n do
     a:=a+ma[i,j];
   if a>max then
    begin
     max:=a;
     maxj:=j;
    end;
    a:=0;
  end;
write('Максимальный по сумме столбец:',maxj);
end.

Пример работы кода:
Matrix:
   8   6   8   0   2
   6   1   2   9   8
   8   1   8   0   1
   4   5   1   5   2
   3   0   9   9   5
Максимальный по сумме столбец:1

1. Разностная машина Беббиджа должна была заменить группу вычислителей, которые аккуратно склвдывали и вычитали числа. Поэтому утверждение "Б" - справедливо
2. Подготовка данных с перфокарт, утверждение "А" - справедливо.
3. Утверждение "Г" - спорно, хотя в 2000 году в лондонском Музее науки заработал принтер, придуманный Бэббиджем для своей машины.

Вообще машина проектировалась как механический аппарат предназначенный для автоматизации вычислений путем аппроксимации функций многочленами и вычисления конечных разностей.