Составить программу в Паскале для обработки одномерного массива из 15 чисел. Значения элементов массива задать с клавиатуры самостоятельно. Найти наибольший элемент массива и его номер.
Ответы
Ответ дал:
0
Ответ:
(см. объяснение)
Объяснение:
Напишем программу на языке программирования PascalABC.NET:
##
var a: array of integer := ReadArrInteger(15);
a.Max.Print;
a.IndexMax.Print;
Задание выполнено!
Ответ дал:
1
Ответ:
var
a: array [0..14] of integer;
maxNum, i: integer;
begin
for i := 0 to 14 do
readln(a[i]);
maxNum := a[0];
for i := 0 to 14 do
begin
if maxNum < a[i] then
maxNum := a[i];
end;
writeln(maxNum);
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад