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

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

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

2)
USES CRT;
VAR A:array[0..200] of integer;   
       i,max,s:integer;
BEGIN
CLRSCR;
Randomize;   
   Writeln(Дан массив:); 
   for i:=0 to 200 do     
      begin         
         A[i]:=-100+random(150);         
         Write(A[i],   );     
      end;

       s:=0;   
       max:=A[0];

       for i:=0 to 200 do     
          begin         
             if A[i] > max then max:=A[i];         
             if A[i]>=0 then s:=s+1;     
          end;   
       
        Writeln;   
        Writeln(Максимальный элемент массива  = , max);   
        Writeln(Кол-во положительных элементов = ,s);
READLN;
END.