Поиск минимума и максимума
Добавлено: 17 мар 2009, 20:21
В одномерном массиве A[N] действительных числел найти 
Да нужно найти сумму максимального четного и минимального нечетного элементов.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.