Question

Решить задачи в Pascal: 1) Задан одномерный массив из 10 действительных элементов. Найти наименьший элемент данного массива. 2) В заданном одномерном массиве из n целых чисел найти элемент с наибольшим значением и вывести его номер на экран. Если таких элементов несколько – вывести номер первого из них.​

Answer 1

Ответ:

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.

Объяснение: