GAECHKA
Твоя помощница в решении задач

Найти все элементы массива с четными номерами, со значением максимального элемента массива

Дано натуральное число n и массив вещественных чисел a [1..n] Найти все элементы массива с четными номерами, со значением максимального элемента массива
0
вопрос задан

Источник


1 ответ
program MaxOdd;
var
  a: array[1..100] of real; // Переменная в которой хранится массив.
  n: integer;  // Переменная в которой хранится значения максимального количества элементов.
  i: integer;   // Промежуточная переменная, для организации циклов.
  max: real;  // Переменная в которой хранится максимальное значение среди элементов.
begin
writeln('Введите число элементов массива:');
Readln(n);
writeln('Введите значения элементов массива:');
for i:= 1 to n do
   Readln(a[i]);
for i:= 1 to n do
  write(a[i]:5:1);
max:=a[1];
for i:= 2 to n do
  if a[i] > max then
       max:= a[i];
writeln;
for i:= 1 to n do
  if (not odd(i)) and (a[i] = max) then
    writeln('Элемент a[',i,'] равен максимальному значению ', max:0:1);
Readln;
end.