Question

Ребят помогите с информатикой) 1) Дан массив от 0 до 100. Найти минимальный нечётный элемент массива.
2) Дан массив от -100 до 100 написать количество положительных и максимальный элемент массива. Всё нужно по Паскалю, пожалуйста)

Answer 1

1)
USES CRT;
VAR A:array[0..100] of integer;   
        i,min:integer;
BEGIN
   CLRSCR;
   Randomize;   

   Writeln('Дан массив:'); 
  
   for i:=0 to 100 do     
      begin         
         A[i]:=random(150);         
         Write(A[i],' ');     
      end;

    min:=A[0];

   for i:=0 to 100 do       
      if (A[i] < min) and (A[i] mod 2 <>0) then min:=A[i];

   Writeln;   
   Writeln('Минимальный нечетный элемент массива  = ',min);
READLN;
END.

Answer 2

Спасибо огромное))) Только вот как со 2-ым?)