Решить задачи в Pascal:
Задан одномерный массив из 10 действительных элементов. Найти наименьший элемент данного массива.
В заданном одномерном массиве из n целых чисел найти элемент с наибольшим значением и вывести его номер на экран. Если таких элементов несколько – вывести номер первого из них.
Ответы на вопрос
Ответ:
1)
program findMinElement;
const
n = 10;
var
a: array [1..n] of real;
i, minIndex: integer;
begin
for i := 1 to n do
begin
write('Enter a[', i, ']: ');
readln(a[i]);
end;
minIndex := 1;
for i := 2 to n do
begin
if a[i] < a[minIndex] then
minIndex := i;
end;
writeln('The smallest element is: ', a[minIndex]);
end.
2)
program findMaxElement;
var
a: array [1..100] of integer;
n, i, maxIndex: integer;
begin
write('Enter the number of elements in the array: ');
readln(n);
for i := 1 to n do
begin
write('Enter a[', i, ']: ');
readln(a[i]);
end;
maxIndex := 1;
for i := 2 to n do
begin
if a[i] > a[maxIndex] then
maxIndex := i;
end;
writeln('The element with the largest value is: ', a[maxIndex]);
writeln('Its number is: ', maxIndex);
end.
Объяснение: