Рассчитай объём видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 800×600 и палитрой из 16777216 цветов.

 = 16777216 
24 бита на одну точку

800 * 600 = 480000
всего точек на экране

480000 * 24 = 11520000 все изображение на экране в битах
11520000 / 8 = 1440000 ...в байтах
1440000  / 1024 ≈ 1407 в килобайтах
1407 / 1024 ≈ 1,38 в мегабайтах

Program asd;
Const n=4;   
  m=3;
Var A:array[1..n,1..m] of integer;
B,jd,id:array[1..n] of integer;
i,j,k,min,ii,jj:integer;
BEGIN  
For i:=1 to n do  
 begin   
For j:=1 to m do    
 begin   
  A[i,j]:=2+Random(8); 
   Write(A[i,j],' ');    
 end;   
Writeln;
  end;    
 Writeln;  ii:=1; 
   For i:=1 to n do 
  begin 
   min:=1000;   
 for j:=1 to m do  
   begin   
  jj:=1;  
    If A[i,j]<=min then
    begin 
    min:=A[i,j];
   id[i]:=i; 
 jd[i]:=j;    
  end;     
 end;   
  B[i]:=min; 
         end;
   For i:=1 to n do 
   begin 
 Writeln('Min: ',B[i],'. Строка: ',id[i],'; Столбец: ',jd[i],';');  
  end;   
END.

Program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils; 
 Const n=30; 
     m=1;
var b,c:array[m..n] of integer;
i,a,s,y,s1:integer;
BEGIN
Write('Vvedite trexsnachnoe chislo A: ');
 readln(a); 
y:=a; s:=0; 
while ( y<>0 ) do 
 begin 
  s:=s + (y mod 10); 
  y:=y div 10;
 end;
Writeln('Summa zifr ravna: ',s);
Writeln;
Writeln('Massiv: ');
For i:=m to n do
  begin 
b[i]:=100+Random(200);
 Write(b[i],' '); 
c[i]:=b[i];
 end;
Writeln;   Writeln; 
 Write('Vse chisla, kotorye ravny po summe zifr: ') ;
 For i:=m to n do  
 begin 
 s1:=0; 
while ( b[i]<>0 ) do 
 begin 
 s1:=s1 + (b[i] mod 10); 
 b[i]:=b[i] div 10; end; 
 //Write(' ',S1,' '); 
  If s=s1 then   
begin 
  Write(c[i],' '); 
  end;  end;   
   Readln; 
END.