Паскали(задачи с матрицами)

[sllh_111]

Здраствуйте. Помогите пожалуйста решить задачи( скоро сесия и все решить я не успеваю) :
1. Напишите программу и блок-схему с использованием подпрограммы-функции
(подпро-граммы-процедуры) для вычисления суммы элементов массивов А(30), B(15), C(20).
4. Найти максимальный (минимальный) элемент в одномерном(двумерном ) массиве. И по-менять его местами с первым элементом массива.
5. Найти длину строки введенной с клавиатуры.
6. Первый символ строки поменять с последним символом строки.




вот наработки к 1 задачи(ток че-то неполучается):

program ex_1;
uses crt;
var a,b,c,d: array[1..50] of integer;
i,j,k,n,m: integer; s:longint;
procedure vvod;
begin
writeln('vvedite razmernost massiva a: ');
readln(k);
for i:= 1 to k do  begin
a[i]:= random(100)-50;
writeln(a[i]:5);
end;
writeln('vvedite razmernost massiva b: ');
readln(n);
for i:= 1 to n do  begin
b[i]:= random(100)-50;
writeln(b[i]:5);
end;
writeln('vvedite razmernost massiva c: ');
readln(m);
for i:= 1 to m do  begin
c[i]:= random(100)-50;
writeln(c[i]:5);
end;
end;
procedure sum;
begin
for i:= 1 to n do   begin
d[i]:= a[i]+ b[i]+ c[i];
end;  end;
procedure vivod;
 begin
  writeln;
  writeln('cymma = ',d[i]:5);
  end;
begin clrscr;
vvod;
sum;
vivod;
readln;   end.

ну вообщем вся надежда только на Вас

[Niro]

procedure sum;
begin
for i:= 1 to n do begin
d[i]:= a[i]+ b[i]+ c[i];
end; end;

НА сколько я понял нужно посчитать общую сумму всех элементов трех массивов, а у вас ищется сумма каждых трех элементов массива?
замениете

d[i]:= a[i]+ b[i]+ c[i];

на

sum:=sum+a[i]+b[i]+c[i]

и я выводил бы элементы массива на

writeln(a[i]:5);

а

write(a[i]:5,' ');

. т.к. при большом кол-ве элементов трудно проверить правильность проги
Ну, а остальные задачи в поиск или рублей 150 на мобильник

[sllh_111]

Niro
можите пожалуйста переправить мою программу, а то я совсем в ней запутался

[Niro]

program ex_1;
uses crt;
var a,b,c: array[1..30] of integer;
     i: integer; 
     sum:longint;

procedure vvod;
begin
for i:= 1 to 30 do 
begin
  a[i]:= random(100)-50;
  write(a[i],' ');
end;
writeln('--------------------');
writeln;
for i:= 1 to 15 do 
begin
  b[i]:= random(100)-50;
  write(b[i],' ');
end;
writeln('--------------------');
writeln;
for i:= 1 to m do 
begin
  c[i]:= random(100)-50;
  write(c[i],' ');
end;
end;

procedure sum;
begin
for i:= 1 to 30 do 
 sum:=sum+a[i]+ b[i]+ c[i];
end;

procedure vivod;
begin
 writeln;
 writeln('cymma = ',sum);
end;

BEGIN 
 clrscr;
 vvod;
 sum;
 vivod;
 readln; 
END.

Не проверял

[GetMax]

5 задача

Var
  Stroka:String;
  Dlina:Byte;
Begin
   Readln(Stroka);
   Dlina:=Length(Strok);
   Writeln(Dlina);
   Readln
End.

[sllh_111]

Niro, GetMax огромное спасибо!
с остальными я сам справлюсь... :-)

[GetMax]

6 задача

Var
  St:String;
  Dl:Byte;
  buf:Char;
Begin
   Readln(St);
   Dl:=Length(St);
   Buf:=St[1];
   St[1]:=St[Dl];
   St[Dl]:=Buf;
   Write(St);
   Readln
End.

[sllh_111]

спасибо ребят вообще отдуши!!! ща оставлю вам положительные отзывы(ну там где значек с висами), как говориться чем могу...
тему можно закрывать