Сумма положительных элементов

@codefish · Регистрация: 10.11.2014

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

Помогите сделать программу (точнее отредактировать) под мое задание.

Произведение элементов, удовлетворяющих условию 0<tgx_i<1, а также сумму положительных.

Pascal
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
26
27
program 1;
var x:array [1..15]of real;
k,i,imin: integer;
min: real;
begin
randomize;
writeln('x[15]');
for i:=1 to 15 do begin
//read(x[i]
x[i]:=random(20)/5;
write(x[i]:5:2);end;
min:=1000000;writeln;
for i:=1 to 15 do
if x[i]>2 then
if x[i]<min then
begin
min:=x[i];
imin:=i;
end;
writeln ('min=',min:3:2,'  imin=',imin);
k:=0;
for i:=1 to 15 do
if sin(x[i])/cos(x[i])>0 then
if sin(x[i])/cos(x[i])<1 then
k:=k+1;
writeln('k=',k);
end.

@pahuss · 10.11.2014, 22:09

Pascal
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
26
27
program la;
const n = 15;
var x : array [1..n] of real;
i : integer;
pr, sum: real;
 
begin
randomize;
 
for i:=1 to n do begin
    x[i]:=random(361);
    end;
    
pr := 1;
sum := 0;
 
for i:=1 to n do  begin
    if (0 < (sin(x[i])/cos(x[i]))) and  ((sin(x[i])/cos(x[i])) < 1)  then
    pr := pr * x[i];
    
    if (x[i] > 0) then
    sum := sum + x[i];
    end;
 
writeln ('Ïðîèçâåäåíèå ïî óñëîâèþ pr = ',pr:3:2,' Ñóììà ïîëîæèòåëüíûõ sum = ',sum);
 
end.

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .