Pascal: массивы и строковые величины. Требуется помощь.

[pANd4]

Добрый день!
Требуется помощь в решении ряда задач.

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


Двумерные массивы
Дана целочисленная квадратная матрица. Определить:
1) сумму элементов в тех строках, которые не содержат отрицательных элементов (оформить в виде функции);
2) минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы (оформить в виде процедуры).


Строковые величины
1) Составьте программу, определяющую, какие буквы встречаются в слове X вслед за буквой "д".
2) Составьте программу, подсчитывающую, сколько раз первая буква слова X встречается в слове Y.

Заранее спасибо!

[Stilet]

pANd4

Показывай как ты массив вводишь.

[pANd4]

массив пользователем задается

writeln ('BBeguTe Pa3Mep MaccuBa');
readln(n);
writeln ('BBeguTe MaccuB');
for i:=1 to n do
    readln (a[i]);

[alex_fcsm]

Ищешь максимум

max:=1;
for i:=2 to n do
 if a[i]>a[max] then max:=i;

И считаешь сумму

sum:=0;
for i:=1 to max do
 if a[i]>0 then sum:=sum+a[i];

Менять порядок

for i:=1 to n div 2 do
 begin
  temp:=a[n-i+1];
  a[n-i+1]:=a[i];
  a[i]:=temp;
 end;

uses crt;
var x,y:string;
    i,temp:integer;
    
begin
clrscr;
readln(x,y);
temp:=0;
for i:=1 to length(y) do
 if UpCase(x[1])=UpCAse(y[i]) then inc(temp);
 writeln(temp);
end.

uses crt;
const y='д';
var x:string;
    i:integer;
    f:boolean;
    s:set of char;
begin
clrscr;
readln(x);
f:=false;
for i:=1 to length(x) do
   begin
    if f then writeln(x[i]);
    if x[i]=y then f:=true
   end;
end.

[Stilet]

Дополню вышесказанное что максимум и сумму можно искать прям при вводе:

writeln ('BBeguTe Pa3Mep MaccuBa');
readln(n);
writeln ('BBeguTe MaccuB');
for i:=1 to n do begin
    readln (a[i]);
   if a[i]>a[max] then max:=i;
    sum:=sum+a[i];
end;

[alex_fcsm]

Сообщение от Stilet

Дополню вышесказанное что максимум и сумму можно искать прям при вводе:

writeln ('BBeguTe Pa3Mep MaccuBa');
readln(n);
writeln ('BBeguTe MaccuB');
for i:=1 to n do begin
    readln (a[i]);
   if a[i]>a[max] then max:=i;
    sum:=sum+a[i];
end;

Так ведь сумма нужна только до максимума
P.S. Да и сумма положительных

[Stilet]

А-а-а верно. Ну тогда только максимум

[pANd4]

спасибо, сделал - все работает, только вот тут:

Сообщение от alex_fcsm

И считаешь сумму

sum:=0;
for i:=1 to max do
 if a[i]>0 then sum:=sum+a[i];

нужно было в операторе цикла сделать счетчик от 1 до (max-1), т.к. максимальный элемент в сумме присутствовать не должен.

А с задачками на двумерные массивы не поможете?