Одномерные и двумерные массивы

[Ален4ек]

Помогите пожалуйста!!!
Я не знаю как это решать((

1) Дан одномерный массив. Определить сумму элементов после первого положительного элемента этого массива.
2) Строка, состаящая из фамилии и имени студента, заканчивается буквой А. Определить количество появлений в ней буквы а.
3) Дан двумерный массив. Определить в нем произведение положительных элементов.

[Sab_zero]

int summa=0;
        int [] a = {5,3,25,9,4,16,7,49};
        for (int i=1;i<a.length;i++)
        summa+=a[i];
        System.out.println (summa);

[McFrey]

3 программа

program by_McFey;

const
  n = 3;

var
  a: array[1..n, 1..n] of integer;
  i, j, q: integer;


begin
  writeln('введите элементы массива');
  for i := 1 to n do
  begin
    for j := 1 to n do
      readln(a[i, j]);    
  end;
  
  q := 1;  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if a[i, j] > 0 then q := q * a[i, j];
    end;
  end;
  writeln('произведение положительных элементов = ', q);  
end.

[McFrey]

1 программа

program stup;
uses crt;
const N=5;
type massiv=array[1..N] of integer;
var i,sum,k:integer;
a:massiv;
Begin
Randomize;
for i:=1 to N do begin
    a[i]:=5-Random(10);
    write(a[i]:3)
end;
i:=1;
while a[i]<0 do inc(i);
sum:=0;
for k:=i to n do sum:=sum+a[k];
writeln;
Writeln('Сумма: ',sum);
End.

[Ален4ек]

Спасибо большое)))
Блин мне ще блок схему какую то надо!!!
Помогите с блок схемой пожалуйста!!!