ТЕМА 8 КЛАССА! 1) Как в памяти компьютера представляются целые положительные и отрицательные числа?
2) Любое целое число можно рассматривать как вещественное, но с нулевой дробной частью. Обоснуйте целесообразность наличия особых компьютерного представления целых чисел.
3) Представьте число 63₁₀ в беззнаковом 8-разрядном формате
4) Найдите десятичные эквиваленты чисел по их прямым кодам, записанным в 8-разрядном формате со знаком:
а) 01001100; б) 00010101
5) Какие из чисел 443₈, 101010₂, 256₁₀ можно сохранить в 8-раз­рядном формате?

Uses crt;
var c: array [1..10, 1..10] of integer;
     p,n,i,j: integer;
     find:boolean;
begin
  clrscr;
  randomize;
  n:=10; P:=1;
  find:=false;{find - положительных элементов в матрице, кратных 5 нет}
  for i:=1 to n do
  begin
  for j:=1 to n do
   begin
     c[i,j]:=-5+random(11);
     if (c[i,j]>0) and (c[i,j] mod 5 =0) then
      begin
       p:=p*c[i,j];find:=true;
      end;
     write(c[i,j]:6);
   end;
  writeln;
  end;
if find then
  writeln('произведение', p:7)
else
  writeln('положительных элементов в матрице, кратных 5 нет')
end.

var n,k:integer;
      s: string;
begin
  writteln('введите n,k');
  readln(n,k);
  str(n,s);{преобразуем число n в строку s}
  witeln(s[length(s)-k+1]); {length(s) -длина строки}
end.

{2 задача}
cons nmax=20;
var a:array [1..nmax] of integer;
    min1,min2,i,k1,k2,N:integer;
begin
  writeln('введите кол-во элементов массива');
  readln(N);
   writeln('введите элементы массива'); 
   for i:=1 to N do   read(a[i]);
   min1:=a[1]; k1:=1; {k1 -индекс первого минимального элемента}
   for i:=2 to n do 
   if min1>a[i] then
   begin 
     min1:=a[i];
     k1:=i
  end;
{исключаем  найденный минимальный элемент из массива- можно и по другому}
    for i:=k1+1 to N do 
     a[i-1]:=a[i];
    k1:=n-1;
  end; 
   min2:=a[1]; k2:=1; {k1 -индекс первого минимального элемента}
   for i:=2 to n do 
   if min2>a[i] then 
   begin 
     min2:=a[i];
     k2:=i
  end;
writeln(min1:5,min2:5)
{если нужно было сохранить массив в начале программы надо ввести дополнительный массив }

end.