мальчик с пальчик, карлик нос,буратино,карабас барабас,змей горыныч, царевна лягушка,
Ответ дал: Гость
var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;
begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.
теперь считай, сколько битов ты выделяешь на точку1 бит = 0.125 байта24 бита = 3 байта
Ответ дал: Гость
Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin readln(x); if x > = 0 then x : = x - 50 else x : = x + 100; writeln(x) end. пример ввода: 0 пример вывода: -50
Популярные вопросы