Форум » Массивы, сортировка, работа с файлами » Вариант 15 C2 » Ответить
Вариант 15 C2
Алексей28: мне кажется, что в решении не предусмотрен вариант отрицательных чисел 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.
Ответов - 1
oval: Алексей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. Про отрицательные числа не скажу, не помню условие
полная версия страницы