Найти наибольший элемент нижнего треугольника матрицы, находящегося под главной диагональю. Удалить строку, содержащую найденный элемент. c+, c++

uses crt;
var a, b, c, i, n, j :integer;   
s :array[1..10000] of integer;
begin
      clrscr;
      writeln('Введите размер массива');
      read(n);
      for i:=1 to n do 
          begin 
          s[i]:=random(46)-15; 
          writeln ('s[', i,']=', s[i]); 
          end;
      a:=s[1];for i:=1 to n do 
          if s[i]>a then 
              begin 
              a:=s[i]; 
              b:=i; 
              end;
      writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.

(см. объяснение)

Объяснение:

Напишем программу на Python 3:

k = 0

for i in input():

   if (ord(i) in range(65, 91)) or (ord(i) in range(97, 123)):

       k += 1

print(k)

Задание выполнено!

Комментарий 1:

Замечу, что то же самое легко сделать на паскале:

##

var k: integer := 0;

foreach var c: char in ReadString do

 if((ord(c) in [65..90]) or (ord(c) in [97..122]))

   then k:= k+1;

print(k);

Комментарий 2:

Задачу можно было решить несколько иначе:

k = 0

for i in input():

   if ('a' <= i <= 'z') or ('A' <= i <= 'Z'):

       k += 1

print(k)

Комментарий 3:

Решение из комментария 2 тоже несложно написать на паскале:

##

var k: integer := 0;

foreach var c: char in ReadString do

 if((c in ['a'..'z']) or (c in ['A'..'Z']))

   then k:= k+1;

print(k);