Pascel Задачи

[Arven]

Плиз, помогите решить. Очень нужно до завтрашнего утра.

№1
Дан одномерный строковый массив.
а) найти кол-во элементов, содержащих текст "ussr".
б) сколько всего символов в массиве

№2
Одномерный массив заполнен трехзначными цифрами. На каком месте стоит число с максимальной суммой цифр?
(нахождение суммы цифр трехзначного числа оформить в виде процедуры).

№3
составить программу заполнения вот такого массива:
0 0 0 0 1
0 0 0 2 2
0 0 3 3 3
0 4 4 4 4
n n n n n

[puporev]

Задача 3.

program zad3;
uses crt;
var n,i,j:integer;
    a:array[1..20,1..20]of integer;
begin
clrscr;
write('n=');readln(n);
randomize;
for i:=1 to n-1 do
    begin
      for j:=1 to n-i do
        begin
          a[i,j]:=0;
        end;
  end;
for i:=1 to n do
    begin
      for j:=n-i+1 to n do
        begin
          a[i,j]:=i;
       end;
     end;
for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          write(a[i,j]:3);
       end;
  writeln;
  end;
readln;
end.

[Vedrus]

Третью задачу уже решили. Вот первые две.
См. аттач и приват