Дан массив 7 элементов, заполненный различными двузначными числами. Организовать ввод с клавиатуры, т.к. при заполнении случайным образом могут быть повторения. Вывести массив в строку: номер - значение. Определить: 1) максимал...
Дан массив 7 элементов, заполненный различными двузначными числами. Организовать ввод с клавиатуры, т.к. при заполнении случайным образом могут быть повторения. Вывести массив в строку: номер - значение. Определить:
1) максимальный элемент и его порядковый номер;
2) минимальный элемент и его порядковый номер;
3) во сколько раз (округлить до целых) максимальный больше минимального.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!
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.
Пример
Введите семь различных двухзначных чисел
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 раз(а)
Не нашли ответ?
Похожие вопросы