Var N,M,R,S:Array[1..20] of integer; i,min,q,k,max:integer;
begin
Randomize;
max:=-200; min:=200;
writeln('1 массив');
for i:=1 to 20 do begin
N[i]:= random(100)-50;write(N[i]:4);end;writeln;
writeln('2 массив');
for i:=1 to 20 do begin
M[i]:= random(100)-50;
write(M[i]:4);end;writeln;
writeln('массив Суммы');
for i:=1 to 20 do begin
S[i]:= N[i]+M[i];
if max < S[i] then begin
max:=S[i];q:=i;end;
write(s[i]:4);end;
writeln;
writeln('массив Разности');
for i:=1 to 20 do begin
R[i]:= N[i]-M[i];
if min > S[i] then begin
min := S[i];k:=i;end;
write(R[i]:4);end;writeln;
writeln('максимальный ' , max, ' его индекс ',q);
writeln;writeln('минимальный ' , min, ' его индекс ',k);
<span>end.</span>
-2 3
12 ()
-2 + 12/5 - 3 = (-5 * 5 + 12)/5 = -13/5 = -2.6
1. 16, 256, 2^16, 2^24, 2^32
3. 256 цветов, следовательно 8 бит глубина цвета. 120*8 бит/ 8 бит =120 точек
4. 256*1024*8 (объем памяти в битах)> 4(глубина цвета при палитре в 16 цветов)*640*180 Значит объема памяти достаточно
2 в 4 раза, так как 65536 это 16 степень числа 2, а 16 - - четвертая, следовательно 16/4=4