Задан целочисленный одномерный массив с именем а, размером n с датчика случайных чисел на промежутке (0; 10). 1. найти минимальные элементы в массиве. 2. найти порядковый номер этого элемента.
С переменными, надеюсь, сообразите Begin Randomize; min:=a[1]; For i:=1 to N do begin a[i]:=random(10); write(a[i]); if (min>a[i]) then begin min:=a[i]; k:=i; end; end; Writeln(min); writeln(k); end.
1) общее количество пикселей 32·64 = 2048. Общее количество бит: 8·512 = 4096. Значит, на 1 пиксель отводится по 4096:2048 = 2 бита информации; таким образом, максимальноеколичество цветов равно 2² = 4 P. S. Разумеется, предполагается, что информация хранится в несжатом виде. 2)128х128=16,384 пикселя. 2 кБ памяти = 2,048 байт. Делим объем памяти на количество точек. Получаем 2,048/16,384=0.125 байта на точку, или 1 бит (1/8=0.125). Т.е., только два цвета - черный и белый. 5. 20х20=400 точек. Каждая по 1 байту (256 цветов = 8 бит). Итого - 400 байт.
Когда вы запускаете Word, он автоматически предлагает вам чистый документ, в который довольно удобно вводить текст. Значит, логично будет предположить, что после запуска Word вы этим и займетесь. Если вы в Word редактируете определенный документ и вам понадобилось открыть новый (например, вы пишете письмо другу, но вдруг вспомнили, что необходимо ответить на запрос), то выполните следующие действия. Выберите команду Файл › Создать. На экране появится область задач Создание документа. На ней представлено несколько вариантов создания нового документа. Выберите опцию создания нового документа.Щелкните на ссылке Новый документ. Область задач будет скрыта, а на экране появится пустая страница нового документа.Если вы очень спешите, новый документ можно также создать, щелкнув на кнопке Создать . Таким образом, вам не потребуется искать необходимый вариант в области задач. Да и сама область задач при этом на экране не отображается. В главе 10 подробно рассказывается о том, как организовать в Word одновременную работу с несколькими документами.Еще один приступить к работе заключается в следующем: откройте документ на диске. (Дополнительную информацию по этому вопросу можно найти в главе 8.) Открытый документ появится в окне. Можно работать!
Begin
Randomize;
min:=a[1];
For i:=1 to N do begin
a[i]:=random(10);
write(a[i]);
if (min>a[i]) then begin min:=a[i]; k:=i; end;
end;
Writeln(min);
writeln(k);
end.