Дан массив 7 элементов, заполненный различными двузначными числами. Организовать ввод с клавиатуры, т.к. при заполнении случайны
м образом могут быть повторения. Вывести массив в строку: номер - значение. Определить: 1) максимальный элемент и его порядковый номер; 2) минимальный элемент и его порядковый номер; 3) во сколько раз (округлить до целых) максимальный больше минимального.
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var a:=ReadArrReal('Введите семь различных двухзначных чисел'+NewLine,7); a.Select((x,i)->Format('[{1}]:{0}',x,i+1)).Println(', '); var imax:=a.IndexMax; var imin:=a.IndexMin; Writeln('Максимальный элемент: ',Format('[{0}]:{1}',imax+1,a[imax])); Writeln('Минимальный элемент: ',Format('[{0}]:{1}',imin+1,a[imin])); Writeln('Максимальный элемент больше минимального в ', Round(a[imax]/a[imin]),' раз(а)') end.
<u>Пример</u> Введите семь различных двухзначных чисел 23 64 24 28 21 11 19 [1]:23, [2]:64, [3]:24, [4]:28, [5]:21, [6]:11, [7]:19 Максимальный элемент: [2]:64 Минимальный элемент: [6]:11 Максимальный элемент больше минимального в 6 раз(а)
От 0 до 8 иначе говоря по 8 цифр на одной позиции количество комбинаций будет равно 64 (узнали мы это возведя количество чисел (8) в квадрат 2 в 6-й степени равно 64 значит можно закодировать 6-ю битами
Program R1; Var a:array[1..100] of integer; i,n:integer; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n); for i:=1 to n do read(a[i]); for i:=n+1 downto 2 do a[i]:=a[i-1] ; a[1]:=7 ;