Сравните числа: (поставте знак, больше, меньше, равно) а)364в10(сс.с) б)512в10(с.(с.с) подробное решение

uses crt;

var

  ar: array[1..19]of integer;

  i, mul, sum, count, min, mini: integer;

begin

  count : = 0;

  sum : = 0;

  mul : = 1;

  randomize;

  for i : = 1 to 19 do

  begin

    ar[i] : = random(13) - 6;

    mul : = mul * ar[i];

    if(ar[i] mod 2 = 0) then

    begin

      textbackground(green);  

      sum : = sum + ar[i];

      count : = count + 1;

    end;

    if(ar[i] = 5) then

      textbackground(red);

    write(ar[i], ' ');

    textbackground(black);  

  end;

  writeln();

  writeln('произведение всех элементов массива = ', mul);

  writeln('сумма четных чисел = ', sum, ', количество = ', count);

  min : = ar[1];

  mini : = 1;

  write('номера элементов, равных 5: ');

  for i : = 1 to 19 do

  begin

    if(ar[i] = 5) then

      write(i, ' ');

    if((ar[i]) < min) then

    begin

      min : = ar[i];

      mini : = i;

    end;

  end;

  writeln();

  writeln('минимальный элемент = ', min, ', его номер = ', mini);

end.

1var x,y: integer; begin   writeln('введите х');   readln(x);   writeln('введите y');   readln(y);   if x< y then writeln('меньшее: ',x) else   if x> y then writeln('меньшее: ',y) else   if x=y then writeln('числа равны') end. 2 var x,y: integer; begin   writeln('введите первое число');   readln(x);   writeln('введите второе число');   readln(y);   if y=0 then writeln('второе число равно 0. деление невозможно! ') else   writeln(x,'/',y,'=',x/y); end. 3 var s,name: string; begin   writeln('введите ваше имя');   readln(name);   writeln('введите строку');   readln(s);   if s=name then writeln('! ') else   writeln('! '); end. 4 var x: integer; begin   writeln('введите число');   readln(x);   if (x mod 2)=0 then writeln('четное') else writeln('нечетное') end. 5 var x: string; i: integer; begin   writeln('введите строку');   readln(x);   writeln('введите номер символа');   readln(i);   if i > length(x) then writeln('нет символа! ') else writeln(x[i]) end. 6 var x,y: integer; begin   writeln('количество яблок: ');   readln(x);   writeln('количество апельсинов: ');   readln(y);   if (x*100)> (y*150) then writeln('берите яблоки')   else   if (x*100)< (y*150) then writeln('берите апельсины')   else   if (x*100)=(y*150) then writeln('вес яблок и апельсинов одинаковый') end.