Решить задачи в Pascal:
1.Задан одномерный массив из 10 действительных элементов. Найти наименьший элемент данного массива.
2.В заданном одномерном массиве из n целых чисел найти элемент с наибольшим значением и вывести его номер на экран. Если таких элементов несколько – вывести номер первого из них.
Ответы
Ответ дал:
1
Ответ:
Ответ:
Найменший елемент масиву:
program findMinElement;
const
N = 10;
var
arr: array [1..N] of real;
i, minIndex: integer;
begin
minIndex := 1;
for i := 1 to N do
begin
write('Enter arr[', i, ']: ');
readln(arr[i]);
if arr[i] < arr[minIndex] then
minIndex := i;
end;
writeln('Minimal element is ', arr[minIndex], ' with index ', minIndex);
end.
Елемент з максимальним значенням:
program findMaxElement;
const
N = 10;
var
arr: array [1..N] of integer;
i, maxIndex: integer;
begin
maxIndex := 1;
for i := 1 to N do
begin
write('Enter arr[', i, ']: ');
readln(arr[i]);
if arr[i] > arr[maxIndex] then
maxIndex := i;
end;
writeln('Maximal element is ', arr[maxIndex], ' with index ', maxIndex);
end.
Вас заинтересует
4 месяца назад
4 месяца назад
4 месяца назад
4 месяца назад
2 года назад
2 года назад
7 лет назад