Написать программу решения следующей : для каждой из матриц a(5, 5) иb(8, 8) вычислить сумму и количество отрицательных элементов, расположенных на главной диагонали и выше её. использовать подпрограмму. на паскале.

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

function KS(a:array[,] of integer):(integer,integer);
begin
  (var k,var s):=(0,0);
  for var i:=0 to a.RowCount-1 do
    for var j:=i to a.ColCount-1 do
      if a[i,j]<0 then (k,s):=(k+1,s+a[i,j]);
  Result:=(k,s)
end;

begin
  var a:=MatrRandom(5,5,-50,50); a.Println(4);
  var r:=KS(a); Writeln('k=',r[0],', Sum=',r[1]);
  var b:=MatrRandom(8,8,-80,45); b.Println(4);
  r:=KS(b); Writeln('k=',r[0],', Sum=',r[1]);
end.

Пример
  -9 -41  -6 -49  36
   6  -7  -2  -1  28
  22 -29 -20 -12   7
 -11 -37  14  34 -41
 -23  11  -9 -26 -46
k=11, Sum=-234
   9  34 -68 -32 -43 -61 -19 -55
 -66   3 -79  41 -47  27  -7  31
 -71  -7 -26  28 -58  -2 -61 -77
 -66  39 -39 -76 -13   2  21   6
 -56  42 -61   1 -39 -69 -57  -2
 -51 -79 -57  10 -10 -27  29  19
 -48 -55 -56 -76  43 -32  29 -70
  15 -71 -46 -37  23 -24   3 -22
k=23, Sum=-1010

1. Заголовок или логотип (шапка сайта). Такой элемент может быть как графическим, так и текстовым. Заголовок/логотип играет очень важную роль в продвижение сайта, ведь как говорится «как лодку назовёшь, так она и поплывёт», то же самое можно сказать и о веб-сайте. Посещая вашу страницу, пользователи будут видеть заголовок, подобно витрине магазина, отнестись к его созданию нужно серьёзно. В первую очередь он должен представлять вашу компанию или же вас лично, должен выглядеть так, чтобы привлечь внимание. Располагать заголовок необходимо в верхней части сайта, а также в верхних правом или левом углах. 

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

Также уместным будет разместить в этой области поисковую строку.

2. Следующим веб-элементом является текстовое поле (как ещё его называют – контент). Точное расположение текстового поля определяется в зависимости от размещения других веб-элементов. 

3. Далее располагаются элементы навигации - это совокупность гиперссылок, которые связывают страницы сайта между собой. Такие элементы могут быть выполнены в текстовом или графическом формате. Также популярны Java-апплеты – при наведении на них курсора мыши, происходят различные действия, например свечение, смена цвета или изменение формы. В идеале элементы навигации должны быть не только приятными визуально, но и удобны в использовании. Для этого необходимо поместить панель в верхней правой или в левой части страницы.

4. В нижней части сайта более уместно будет располагаться информация от разработчика и контакты. Также это подходящее место для размещения счетчиков посещаемости. Не рекомендуется иметь сразу несколько таких счётчиков на странице – это не привлечёт расположение посетителей.

Вариант 1
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   for i:=1 to length(str) do begin
     if (str[i]='А')or (str[i]='а') then a:=a+1;
     if (str[i]='Б')or (str[i]='б') then B:=b+1;
   end;
   if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.

вариант 3
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   i:=1;
   while i<=length(str) do begin
    if (str[i]='А')or (str[i]='а') then delete(str,i,1);
    i:=i+1;
    end;
   write(str);
      end.