Автор | Сообщение |
|
Отправлено: 12.05.13 18:56. Заголовок: Вариант 15 C2
мне кажется, что в решении не предусмотрен вариант отрицательных чисел const N=70; var a: array [1..N] of integer; j, i, x, y: integer; begin for j:=1 to N do readln(a[j]); x:= a[1]; y:= a[1]; for i:=1 to N do begin if a > x then x:= a; if a < y then y:= a; end; writeln(x-y) end. вот мой вариант решения var a: array [1..N] of integer; j, i, x, y: integer; begin for j:=1 to N do readln(a[j]); x:=abs(a[1]-a[2]); for i:= 1 to N do for j := 1 to N do begin y:=abs(a[i.]-a[j]); if y>x then x:=y; writeln(x); end.
|
|
|
Новых ответов нет
[см. все]
|
|
|
| постоянный участник
|
Сообщение: 216
|
|
Отправлено: 12.05.13 21:41. Заголовок: Алексей28 пишет: fo..
Алексей28 пишет: цитата: | for i:= 1 to N do for j := 1 to N do begin y:=abs(a[i.]-a[j]); if y>x then x:=y; writeln(x); end |
|
У вас двойной проход по массиву, насколько я помню, именно в этой задаче была нужна эффективность в С2. Про отрицательные числа не скажу, не помню условие
|
|
|