1. Nima uchun axborot ikkilikda kodlanadi? 2. Sakkiz bit orqali nechta belgini kodlash mumkin?
3. ASCII jadvali haqida ma'lumot bering.
4. ASCII jadvalidan foydalanib, «7-sinf jumlasini kodlang.
5. Axborotning qanday o'lchov birliklari bor?
6. Axborot hajmining o'lchov birliklari haqida ma'lumot bering.
7. Axborot uzatish tezligi deganda nimani tushunasiz?
8. Axborot uzatish tezligining o'lchov birliklari haqida ma'lumot
bering
9. Grafik axborotlarni kodlash haqida ma'lumot bering.
10. Ikki, uch va to'rt bit bilan necha xil rangni kodlash mum-
kin va bu qanday amalga oshiriladi?​

uses crt;
var a, b, c, i, n, j :integer;   
s :array[1..10000] of integer;
begin
      clrscr;
      writeln('Введите размер массива');
      read(n);
      for i:=1 to n do 
          begin 
          s[i]:=random(46)-15; 
          writeln ('s[', i,']=', s[i]); 
          end;
      a:=s[1];for i:=1 to n do 
          if s[i]>a then 
              begin 
              a:=s[i]; 
              b:=i; 
              end;
      writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.

var

 n,m:integer;

begin

 writeln('Задача 1');

 readln(n,m);

 if n>=m then  

   writeln('Неправильная')

     else writeln('Правильная');

 writeln;

 writeln('Задача 2');

 n:=random(20); m:=random(20);

 writeln(n,' ',m);

 if n mod m = 0 then  

   writeln('Делится нацело')

     else writeln('Не делится нацело');

 writeln;

 writeln('Задача 3');

 readln(n,m);

 if n<=m then

   if n=m then writeln('Равные')

     else  writeln(n)

     else writeln(m);

end.

Если моё решение вам, пометьте его лучшим !