Консультация № 192605
26.02.2018, 08:27
0.00 руб.
0 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:

Задали решить на Pascal программу, но у меня не получается, помогите пожалуйста.
Даны натуральное число n, действительные числа y1, ... , yn.
найти:
min(|z1|, ... , |zn|),
где zi = yi при |yi| <=2,
0,5 в противном случае.

Обсуждение

давно
Старший Модератор
31795
6196
26.02.2018, 12:25
общий
это ответ
Здравствуйте, mike!
Turbo Pascal:
[code lang=pascal]var
a,b:real;
i,j,n:integer;
begin
repeat
write('Enter N:');
readln(n);
until n>2;
a:=0;
for i:=1 to n do
begin
write('Enter Y',i,':');
readln(b);
if abs(b)>2 then b:=0.5;
if abs(a)<abs(b)then
begin
a:=b;
j:=i;
end;
end;
writeln('maximum Y',j,':=',abs(a):5:3);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа