давно
Старший Модератор
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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.