Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.