Найти частное от деления произведения элементов

@LiM · Регистрация: 06.11.2008

Студворк — интернет-сервис помощи студентам

Вот есть задача: дан массив А(20). Найти частное от деления произведения элементов, стоящих на четных местах, на сумму первых 10 элементов.

Вот код на паскале:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program massive;
uses crt;
var a:array [1..20] of real;
    i: integer;
    c,x,s: real;
begin
     clrscr;
     writeln ('Vvedite elementy massiva');
     c:=1; {proizvedenie elementom na chetnyh mestah}
     s:=0;
     for i:=1 to 20 do
         readln (a[i]);
     for i:=1 to 10 do
         s:=s+a[i];
         writeln ('s = ', s:4:2); {summa pervyh desyati elementov}
     for i:=1 to 20 do
         begin
             if i mod 2 = 0 then
             c:=c*a[i];  {nahodim proizvedenie elementov stoyashih na chetnyh mestah}
         end;
     writeln ('c = ', c:4:2); {vyvod proivzvedeniya elementov stoyashih na chetnyh mestah}
     x:=c/s; {nahodim iskomoe chastnoe}
     writeln ('x = ', x:4:2);  {vyvod iskomogo chastnogo}
readln;
end.

Но никак не могу составить алгоритм, помогите пожалуйста

@Zipp · 18.12.2008, 15:27

А в чом собственно вопрос?
Те формулу надо паписать, того что нашла прога или что?

@LiM · 18.12.2008, 15:42 **[ТС]**

Эм.. наверное я не совсем точен, я имел ввиду конкретно блок-схему...

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Zipp 2 / 2 / 2 Регистрация: 02.04.2007 Сообщений: 16
	18.12.2008, 15:27
	А в чом собственно вопрос? Те формулу надо паписать, того что нашла прога или что? 0

@LiM 0 / 0 / 0 Регистрация: 06.11.2008 Сообщений: 33
	18.12.2008, 15:42 [ТС]
	Эм.. наверное я не совсем точен, я имел ввиду конкретно блок-схему... 0