Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 190553
09.02.2017, 23:14
0.00 руб.
1 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:

Написать программу на паскале:
Прикрепленные файлы:
bee0684b779bd9c69c1ae0b29dc15cf141cc0a8e.jpg
скачать (75.00 кБ)

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
10.02.2017, 19:55
общий
это ответ
Здравствуйте, nikita9581!
[code lang=pascal h=100]var
a,h,t:array[1..10]of real;
i,y,k,m:integer;
begin
writeln('A:');
for i:=1 to 10 do
begin
a[i]:=0.7*sin(i)/cos(i)/i;
writeln('a[',i:2,']:=',a[i]:10:7);
end;
m:=1;
for i:=2 to 10 do
if a[m]>a[i] then m:=i;
writeln('min a[',m:2,']:=',a[m]:10:7);
writeln('H:');
i:=1;
while i<m do
begin
h[i]:=a[i];
writeln('h[',i:2,']:=',h[i]:10:7);
inc(i);
end;
writeln('T:');
i:=1;
while(i+m)<=10 do
begin
t[i]:=a[m+i];
writeln('t[',i:2,']:=',t[i]:10:7);
inc(i);
end;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа