program pr1; var a : array [1..4, 1..4] of integer ; {резервирование памяти под массив а (4 на 4)}i,j, max, p, k: integer ; {переменные i,j вводятся как индексы массива} begin randomize; for i: =1 to 4 dofor j: =1 to 4 do a[i,j]: =random (100); {ввод элемента матрицы}max: =a[1,1]; k: =1; p: =1; {первоначальное предположение}for i: =1 to 4 do for j: =1 to 4 doif a[i,j]> max then begin {если текущий элемент больше максимального }max: =a[i,j]; {max = a[i,j], запоминаем индексы текущего элемента}k: =i; p: =j; end;
writeln('исходный массив: '); for i: =1 to 4 do beginfor j: =1 to 4 do write (a[i,j], ' '); writeln; end;
a[k, p] : = a[k, p] + a[1, 1]; // добавленные строки
a[1, 1] : = a[k, p] - a[1, 1];
a[k, p] : = a[k, p] - a[1, 1];
writeln('преобразованный массив: '); for i: =1 to 4 do beginfor j: =1 to 4 do write (a[i,j], ' '); writeln;
end; writeln ('максимальный элемент матрицы = ', max); write ('он находится в строке №' , k); writeln (' и в столбце №' , p); end.
недоопределено. не описан сам интерфейс игры, то есть что можно говорить компютеру и что он может отвечать.
например, говорить можно только число в указанном интервале, ответом могут быть
угадал (без штрафа)
не угадал (штраф 3)
вне интервала (штраф ? )
или по-другому
угадал (без штрафа)
больше (штраф 3)
меньше (штраф 3)
вне интервала (штраф ? )
или ещё как-то.
без формализации интерфейса написать программу невозможно!
Поделитесь своими знаниями, ответьте на вопрос:
16-1=15 = 1111 2cc значит 1 пиксель занимает 4 битавидеопамять : 640*480*4=1228800 бит256 цветов это 8 бит на пиксель1228800 / 8 = 153600 точек в 256 цветной палитре может хранить видеопамять320*480 = 153600ответ 320 x 480 одно из возможных размеров