Паскаль задачи

[Салями^__^]

1. Написать программу с использованием подпрограмм (процедуры или функции) Дано натуральное число. Верно ли, что сумма цифр данного числа равна А (А вводится с клавиатуры).

И еще одно задание
1. Одномерный массив А длиной N<=50 заполнить случайными числами из диапазона [–5..30]. Составить программу определения:
• последнего максимального элемента;
• на каких позициях находятся максимальные элементы;
• сколько элементов массива превосходят по модулю заданное число M?
Плиз кому не сложно прошу очень надо!!!) На фри паскаль код плз)

[rubius2008]

1. сумма цифр

function sum(n:integer):integer;
begin
  if n=0 then sum:=0 else sum:=sum+sum(n-1);
end;
....
if sum(n)=A then writeln('Верно') else writeln('Не верно');

[Салями^__^]

Спс большое

[Stilet]

1. Одномерный массив А длиной N<=50 заполнить случайными числами из диапазона [–5..30]. Составить программу определения:
• последнего максимального элемента;
• на каких позициях находятся максимальные элементы;
• сколько элементов массива превосходят по модулю заданное число M?

var a:array[1..50] of integer;
 i,imax,m,cnt:integer;
begin imax:=1; cnt:=0;
 for i:=1 to 50 do begin
  a[i]:=-5+random(35);
  if a[imax]<a[i] then begin imax:=i;
  if abs(a[i])>abs(m) then inc(cnt);
 end;
 writeln(imax,'   ',cnt);
 for i:=1 to 50 do 
  if a[i]=a[imax] then writeln(i);
 end;
end.

А твоя задача найти маленькую помарочку. И даже две. Но оч. легких

[Салями^__^]

Благодарю за помощь)