massivy

[leilochka777]

помогите пожалуйста! Найти минимальный четный и максимальный нечетный из данных десяти ненулевых целочисленных элементов. Если требуемые элементы отсутствуют то вывести 0. и можно решение попроще пожалуйста))

[Leshii]

Ну собственно условие добавить я думаю труда не составит=)

Program masiv;
Uses crt;
const n=10;
var A:array [1..n] of integer;
    i:integer;
    min,max:real;
begin
clrscr;
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if (i mod 2<>0) and (max<a[i]) then max:=a[i];
if (i mod 2=0) and (min>a[i]) then min:=a[i];
writeln(max:2:1);
writeln(min:2:1);
readln;
end.

[ViktorR]

Надо найти минимальный чётный среди всех элементов массива а не минимальный элемент среди четных элементов массива (как предлагает Leshii)?
Поскольку существует вариант с нулевым результатом, то надо искать четные и нечетные элементы массива.

min := 0;
for i:=1 to n do begin {ищем первый четный элемент}
   if ((a[i] mod 2)=0) then begin
      min:=a[i];
      k := i;
      break;
   end;
if ((min <> 0) and (k < n)) then {Продолжим поиск min}
   for i := k to n do
      if (((a[i] mod 2)=0) and (a[i] < min)) then
         min:=a[i];
writeln('Min = ', min :6);
{Аналогично следует решить и вторую часть задачи}

Как то так, думаю ...

[Leshii]

Таки да,перепутал.Я не утверждаю что мой вариант истинно правильный,так что всегда рад увидеть собственные ошибки или же другие варианты.

[leilochka777]

спасибо вам большое!

[leilochka777]

и вам спасибо)))

[денис141]

помогите плиз) не могу понять)

задача:
Даны веса 20 вагонов Z[20]
1) Определить число N вагонов с массой большей или равной 60т.
Общую массу этих вагонов.
2)Сформировать массив из них B[N].
3)Определить сколько вагонов имеют массу меньше или равную 10т, их порядковые номер в массив Z.
4)Определить самый тяжелый вагон, его порядковый номер в массиве B.


помогите пожалуста

[warca]

денис141,надо новую тему создавать,а не все в одну лепить.