Дан массив 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 раз(а)
Var A,S1,S2,i:integer; Begin S1:=0; S2:=0; Write('Введите результаты первого пятиборца: '); For i:= 1 to 5 do Begin Read(A); S1:=S1+A; End; Write('Введите результаты второго пятиборца: '); For i:= 1 to 5 do Begin Read(A); S2:=S2+A; End; WriteLn('S1 = ',S1); WriteLn('S2 = ',S2); End.
Пример: Введите результаты первого пятиборца: 1 2 3 4 5 Введите результаты второго пятиборца: 5 6 7 8 9 S1 = 15 S2 = 35