11.11.2010, 02:56 | #1 (permalink) |
Новичок
Регистрация: 31.10.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Разработать библиотечный модуль
Код:
program laba5; uses crt; var a:array[1..100] of real; n,i:byte; p:real; begin write('n='); readln(n); p:=1; for i:=1 to n do begin readln(a[i]); if i mod 2=0 then p:=p*a[i]; end; write('P=',p:0:2); readln; end. |
11.11.2010, 02:56 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По запросам найдены топики, которые по содержанию схожи с вашим Разработать алгоритм и составить программу для решения задачи Разработать функцию для определения количества нулей в одномерном массиве Разработать ПО по управлению БД и ПО, производящее построение однотипных графиков |
11.11.2010, 07:15 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Во-первых, тема перемещена в соответствующий раздел.
Во-вторых, приведенный листинг содержит простейший алгоритм подсчета произведения значений чётных элементов массива. В-третьих, совершенно непонятно, какие именно процедуры и функции должен содержать модуль. В приведенном вами листинге их нет и в помине и, imho, нет никакого смысла в усложнении прилично работающего кода за счет подключения внешнего модуля. Если есть такая возможность, разместите полный текст задания.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|