Написать программу, которая формирует новый массив, элементами которого являются наибольшие значения из каждой пары исходного массива.

@c1way · Регистрация: 10.03.2012

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

Написать программу, которая формирует новый массив, элементами которого являются наибольшие значения из каждой пары исходного массива.
---------------
Написать программу, которая по заданному натуральному значению вычисляет результат выражения:
P=(cos(1)-10sin(10))*(2sin(2)-9cos(9))*...*(10sin(10)-cos(1)).

Осуществить с помощью подпрограмм
Заранее спасибо, если поясните, как делать, или вообще сразу напишите, буду премного благодарен.

@Севак · 10.03.2012, 23:32

c1way,

Pascal

uses crt;
var
i,n: byte;
p: real;
begin
i:=1;
n:=10;
p:=1;
for i:=1 to 10 do begin
for n:=10 downto 1 do begin
p:=p*(i*(cos(i))-n*(sin(n)));
end;
end;
write('P = ',p);
end.

вторая

Добавлено через 52 секунды

Сообщение от c1way

Осуществить с помощью подпрограмм

Не по теме:

сори, не заметил ( не знаю как делать с подпрограммами

@c1way · 10.03.2012, 23:36 **[ТС]**

Сообщение от Севак