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.
program fpro;
var
a : array[0..15] of integer;
i : integer;
begin
randomize;
for i :=0 to 15 do
begin
a[i] := random(1,20);
if (a[i] > 5) and (a[i] < 15) then writeln(a[i]);
end;
end.
50 мінус 10 буде 40
50 плюс 40 буде 90
90 поділити на 3 буде 30
в одному ящику 30 деталей
1) 400 * 32 = 12 800 бит = 1 600 байт
Ответ: 1 600 байт
2)5 * 3 = 15 дюймов - всё изображение
300 * 15 = 4 500 точек - всё изображение
4 500 * 16 = 72 000 бит = 9 000 байт
Ответ: 9 000 байт
<span>НЕ ((число <=40) и НЕ (число нечетное))
</span>1) НЕ ((37 <=40) и НЕ (37 нечетное)) ⇒ НЕ (Истина и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
2) НЕ ((40 <=40) и НЕ (40 нечетное)) ⇒ НЕ (Истина и НЕ Ложь) ⇒ НЕ Истина ⇒ Ложь
3) НЕ ((51 <=40) и НЕ (51 нечетное)) ⇒ НЕ (Ложь и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
4) <span>НЕ ((62 <=40) и НЕ (62 нечетное)) </span>⇒ НЕ (Ложь и НЕ Ложь) ⇒ НЕ Ложь ⇒ Истина
Ответ: 2) 40
