Ну скорее всего 77 так как мальчики должны были всех поздравить и было 77 пожатей
В режиме High Color используется глубина цвета 16 бит. Следовательно объем видеопамяти равен:
1024*768*16= 125822912 бит = 1572864 байт = 1536 Кбайт = 1.5 Мбайт
Ответ: 1.5 Мбайт
const n = 17;
var
mas:array [1..n] of integer;
i, sum:integer;
begin
randomize;
for i := 1 to n do
begin
mas[i]:= random(10);
write(' ',mas[i], ' ');
end;
writeln();
sum := 0;
for i:= 5 to 10 do
sum := sum + mas[i];
writeln('Сумма с 5 по 10 = ',sum);
end.
<span>1) А=9, В=3
A>=B (да, 9>3)
X = A*B = 9*3 = 27
27
2). А=5, В=7
</span>A>=B (нет, 5<7)
X = A + B = 5 + 7 = 12
12
Program array2d;
var
v_range, v_neg, i, j, n: integer;
array: array of array of integer;
i_range, i_neg: array[1..2] of integer;
begin
randomize;
write('введіть n: ');
readln(n);
SetLength(array, n, n);
write('введіть а та b: );
readln(a, b);
for i:= 1 to n do
for j:= 1 to n do
array(i, j) := random(100);
for i:= 1 to n do
for j:= 1 to n do
begin
if array(i, j) in a..b then
begin
if Assigned(v_neg) then
break; {перевірка, чи є негативне значення знайденим}
v_range := array(i, j);
i_range[1] := i;
i_range[2] := j;
end;
if array(i, j) < 0 then
begin
if Assigned(v_range) then
break;
v_neg := array(i, j);
i_neg[1] := 1;
i_neg[2] := 2;
end;
end;
if Assigned(v_range) and Assigned(v_neg) then
begin
array(i_range[1], i_range[2]) := v_neg;
array(i_neg[1], i_neg[2]) := v_range;
end;
writeln('Виконано.');
end.