Информатика,7 класс
Желательно подробно ​

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.

Var maxd,n,m,lst: integer;
begin
{  считываем с экрана       }
   readln(n);
   maxd:=0;
{  последняя цифра }
   lst:=n mod 10;
{  цикл по количеству цифр в числе }
   while true do
   begin
       m:=n mod 10; 
       if (m mod 2 =1) then writeln('нечет. цифра = ',m);
       if maxd < m then maxd:=m;
       n:=n div 10;
       if (n=0) then
         begin
             writeln('первая цифра = ',m);
             break;
         end;
   end;
   writeln('последняя цифра = ',lst);
   writeln('максимальная цифра = ',maxd);
end.