Question

Решить задачи в Pascal:

1.Задан одномерный массив из 10 действительных элементов. Найти наименьший элемент данного массива.

2.В заданном одномерном массиве из n целых чисел найти элемент с наибольшим значением и вывести его номер на экран. Если таких элементов несколько – вывести номер первого из них.

Answer 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.