Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » найти количество ничетных элементов
найти количество ничетных элементов
дан одномерный массив натуральных числе. определите минимальный и максимальный элементы массива. Найти сумму их факториалов. Все вспомогательные алгоритмы оформить в отдельный модуль.

помоги,очень надо.
1 | Автор: adidas7 | 2012-02-17, 09:53   |  Репутация: [ + 0 ]
var
a:array[1..100]of integer;
i,j,n,s,q,p,pp:integer;
begin
read(n);
p:=low(p);
pp:=high(pp);
for i:=1 to n do begin
read(a[i]);
if a[i]>p then p:=a[i];
if a[i]<pp then pp:=a[i];end;
for i:=1 to n do begin
s:=1;
for j:=1 to a[i] do
s:=s*j;
q:=q+s;end;
writeln(p,' ',pp);
writeln(q);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-02-20, 16:25   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » найти количество ничетных элементов
Страница 1 из 11
Поиск: