Ещё одна оригинальная тема =) -> Пожалуйста Помогите Бедному StuДentу!

[StuДent]

Ещё одна оригинальная тема =) -> Пожалуйста Помогите Бедному StuДentу!

Помогите решить пару простейших задач на Pascal

★ - Найти сумму ненулевых элементов одномерного массива.
★ - Найти количество элементов одномерного массива, кратных 3.
★ - Поменять местами последний и максимальный элементы одномерного массива.


Для кого то это как «Два пальца …», а я на них могу и перегореть
[CENTER]Please help me !!!![/CENTER]

[chnry]

Пиши chnry@mail.ru
Стучись 393877884
Поможем!

[Хыиуду]

for i:=1 to N do
begin
if A<>0 then sum:=sum+A;
if A mod 3=0 then count:=count+1
end;
По п.3 - раздел "Алгоритмы", тема "Нахождение максимума"

[StuДent]

Thank Хыиуду, very much!