Решить задачи в Pascal: 1) Задан одномерный массив из 10 действительных элементов. Найти наименьший элемент данного массива. 2) В заданном одномерном массиве из n целых чисел найти элемент с наибольшим значением и вывести его номер на экран. Если таких элементов несколько – вывести номер первого из них.
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
1.)
const n = 10;
var a: array[1..n] of real;
var i, minIndex: integer;
minValue: real;
begin
for i := 1 to n do
read(a[i]);
minValue := a[1];
minIndex := 1;
for i := 2 to n do
if a[i] < minValue then begin
minValue := a[i];
minIndex := i;
end;
writeln('The smallest element is at index ', minIndex, ' with a value of ', minValue);
end.
2.)
var n, i, maxIndex: integer;
a: array[1..100] of integer;
maxValue: integer;
begin
read(n);
for i := 1 to n do
read(a[i]);
maxValue := a[1];
maxIndex := 1;
for i := 2 to n do
if a[i] > maxValue then begin
maxValue := a[i];
maxIndex := i;
end;
writeln('The largest element is at index ', maxIndex, ' with a value of ', maxValue);
end.
Объяснение: