//Задание 2.73 Кучеренко
Begin
var r: array[0..100] of real;
var n: integer;
write('Vvedite N: ');
readln(n);
var i: integer;
var max: real;
max := -2147483648;
for i := 0 to n - 1 do
begin
write('R[', i + 1, '] = ');
readln(r[i]);
if r[i] < 0 then
if abs(r[i]) > max then
max := abs(r[i]);
end;
if not (max = -2147483648) then
write('Naibolshij element po absolutnoj velichine = -', max)
else
write('Net otricatelnih elementov.')
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎