Найдите сумму максимального и минимального элементов среди элементов с нечётными...

0 голосов
42 просмотров

Найдите сумму максимального и минимального элементов среди элементов с нечётными индексами . Результат выведите на экран . Паскаль


Информатика (25 баллов) | 42 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (n<100): ');readln(n);<br> var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=1 then
   if a[i]>max then max:=a[i]
   else
    if a[i] end;
 writeln;
 writeln('Максимальный - ',max);
 writeln('Минимальный - ',min);
 writeln('Cумма максимального и минимального - ',max+min);
 readln;
end.

Пример:

Введите размер массива (n<100): 10<br>22 6 51 84 46 66 10 36 14 52                   // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61


(5.8k баллов)
0

Всё отлично

0

Где нарушение, то?

0

Ошибочно нажал , хотел на другое сообщение отправить репорт . А есть возможность отменить жалобу?

0

Нету