Результаты N измерений показаний трех приборов записаны в 3 строки. Необходимо найти и записать еще в 3 строки порядковые номера тех результатов измерений, которые больше среднего арифметического значения этих измерений для каждого из трех приборов.

Windows-1251 — набор символов и кодировка, являющаяся стандартной 8-битной кодировкой для русских версий Microsoft Windows до 10-й версии. В пользовалась довольно большой популярностью. Была создана на базе кодировок, использовавшихся в ранних «самопальных» русификаторах Windows в 1990—1991 гг.KOI8-Восьмибитовая кодовая страница, совместимая с ASCII. Разработана для кодирования букв кириллических алфавитов. Была широко распространена как основная русская кодировка в Unix-совместимых ОС и в электронной почте, однако ближе к 2010 году, с распространением Юникода, постепенно выходит из употребления.Юнико́д или Унико́д — стандарт кодирования символов, включающий в себя знаки почти всех письменных языков мира. В настоящее время стандарт является преобладающим в Интернете. Стандарт предложен в 1991 году некоммерческой организацией «Консорциум Юникода».

Объяснение:

Const n =5;
type
  mas=array[1..n,1..n]of integer;
var
  a,b:mas;
  i,j,sum:integer;
begin
randomize;
sum:=0;
  for i:=1 to n do
      for j:=1 to n do
        a[i,j]:=Random(30);
  for i:=1 to n do
      for j:=1 to n do
        b[i,j]:=Random(30);
  writeln('Первый массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
  writeln;
  writeln('Второй массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
    writeln;
    end;
  writeln('Разность двух массивов A-B: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          sum:=sum+a[i,j]+b[i,j];
          write(a[i,j]-b[i,j]:4);
        end;
        writeln;
    end;
    writeln('Сумма элементов двух массивов: ',sum);
end.