Поиск минимума и максимума

[Ildar777]

В одномерном массиве A[N] действительных числел найти

[dr.Jekill]

Насколько я понял, нужно найти сумму максимального четного и минимального нечетного элементов. Или как?

[Ildar777]

Насколько я понял, нужно найти сумму максимального четного и минимального нечетного элементов. Или как?

Да нужно найти сумму максимального четного и минимального нечетного элементов.

[dr.Jekill]

Можете добавить отзыв.

Код: Выделить всё

uses crt;
var a:array[1..50] of integer;
i,n:byte;
min,max:integer;
begin
 clrscr;
 writeln;
 write('Zadaite razmernost massiva: ');
 readln(n);
 writeln('Vvodite elementy massiva: ');
 for i:=1 to n do 
  begin
   write(' -> ');
   readln(a[i]);
  end;
 i:=1;
 while a[i] mod 2 <> 0 do i:=i+1;
 max:=a[i];
 i:=1;
 while a[i] mod 2 = 0 do i:=i+1;
 min:=a[i];
 clrscr;
 write('POLUCHENNYI MASSIV:');
 for i:=1 to n do 
  begin
   write(a[i],' ');
   if (a[i] mod 2 =0) and (a[i]>max) then max:=a[i];
   if (a[i] mod 2 <>0) and (a[i]<min) then min:=a[i];
  end;
writeln;
writeln('Maximalnyi chetnyi element: ',Max);
writeln('Minimalnyi nechetnyi element: ',Min);
max:=max+min;
writeln('Ih summa: ',Max);
readln;
end.