Здравствуйте! У меня есть программки на Паскале, но не могу их записать с помощью процедур, много разных ошибок делаю -самой смешно. Помогите пожалуйста.
№1
uses crt;
var s: string;
k,l,i: integer; c:char;
begin
write ('vvedi strocu iz bukv:');
readln (s);
k:=0;
l:=0;
for i:=1 to length (s) do
begin
if s[i]='A' then k:=k+1;
if s[i]='B' then l:=l+1;
end;
writeln ('A=',k);
writeln ('B=',l);
if k>l then
begin
for i:=length (s) downto 1 do
if s[i]='B' then
begin
delete (s,i,1);
write (i:4);
c:=readkey;
if c=#27 then halt(1);
end;
end;
write(s);
end.
Суть задачи: вводим строку из символов А и В, считаем их, сравниваем и если В больше, то удаляем В все.
№2
program mas6;
var a:array[1..50,1..60] of integer;
n,m,i,j,k,summa: integer;
begin
randomize;
write('n=');
readln(n);
write('m=');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(15)-3;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
write(a[i,j]:8;
end;
end;
writeln;
writeln;
summa:=0;
for i:=1 to n do
begin
k:=1;
for j:=2 to m do
if a[i,j]>a[i,k] then
a[i,k]:=a[i,j];
summa:=summa+a[i,k];
end;
writekn(summa:, summa);
readln;
end.
Суть задачи находим сумму максимальных элементов каждой строки.
№3
Сегодня получила новую задачку по одномерному массиву и не соображу как соединить две мысли в одну, да еще с помощью процедур.
А задача следующая: найти наибольший простой элемент массива.
Суть ясна. Ищем простые числа и по ходу сравниваем их. У меня мозг отказывается решать ее. помогите пожалуйста.