Страница 1 из 1

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

Добавлено: 01 фев 2008, 00:33
StuДent
Ещё одна оригинальная тема =) -> Пожалуйста Помогите Бедному StuДentу!
Помогите решить пару простейших задач на Pascal
★ - Найти сумму ненулевых элементов одномерного массива.
★ - Найти количество элементов одномерного массива, кратных 3.
★ - Поменять местами последний и максимальный элементы одномерного массива.



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

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

Добавлено: 01 фев 2008, 10:50
chnry
Пиши chnry@mail.ru
Стучись 393877884
Поможем!

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

Добавлено: 01 фев 2008, 11:18
Хыиуду
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 - раздел "Алгоритмы", тема "Нахождение максимума"

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

Добавлено: 02 фев 2008, 00:08
StuДent
Thank Хыиуду, very much!