Господа по информатики Назови несколько событий, которые может инициировать пользователь в системе. 2. Назови общие свойства компонентов. 3. Как запустить компиляцию кода?
Из чисел, представленных в ответах, первое, очевидно, меньше Асравните поразрядно А = 1001 1101 С = 1001 1010.Числа в ответах 2), 3), 4) больше А, поэтому среди них мы будем искать то, которое меньше В.сравниваем поразрядно С = 1001 1110 (число С из ответа 2) В = 1001 1111 С<B (число С из ответа 3) С = 1001 1111 В = 1001 1111 С=B (число С из ответа 4) С = 1101 1110 В = 1001 1111 С>B
pascal
Объяснение:
Задание 1
var
i, j, mini, minj: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(51) - 20;
Write(a[i,j]:6);
if a[i, j] <= min then begin
min := a[i, j];
mini := i;
minj := j;
end;
end;
WriteLn;
end;
WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);
end.
Задание 2
var
i, j: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(11) + 20;
Write(a[i,j]:6);
if a[i, j] <= min then min := a[i, j];
end;
WriteLn;
end;
for i := 1 to 6 do
for j := 1 to 8 do
a[i, j] := a[i, j] - min;
WriteLn('Новый массив:');
for i := 1 to 6 do begin
for j := 1 to 8 do begin
Write(a[i,j]:6);
end;
WriteLn;
end;
end.