Установка режима выравнивания Выделение фрагмента текста
2. Точка графического экрана может быть окрашена в один из следующих
цветов: красный, зеленый, коричневый, черный.
черный. Какой объем
видеопамяти будет выделен для кодирования каждого пикселя?
А. 4 бита
В. 4 байта
Д. 3 бита
Б. 2 байта
Г. 2 бита
Что можно отнести к достоинствам векторной графики по сравнению с
растровой?
А. Малый объем графических файлов
Б. Ступенчатый эффект при масштабировании
В. Возможность просмотра изображения на экране графического
Дисплея
Г. Возможность распечатать на принтере
Графическим редактором называется программа, предназначенная для
A. Редактирования графического изображения символов шрифта
Б. Построения диаграмма
В. Работы с графическими изображениями
Г. Создания графического образа текста
Д. Просмотра фотографий
И ЯВЛЯЮТСЯ
Var B,C,D:array[1..2500] of integer;
i,max,min,n:integer;
BEGIN
Writeln('Введите размерность одномерного массив D: ');
Readln(n);
max:=D[1];
for i:=1 to n do
begin
Write('Введите D[',i,']: '); Readln(D[i]);
If max<D[i] then max:=D[i];
end;
Writeln('Максимальный элемент в массиве: ',max);
Writeln('Положительный массив B из D: ');
min:=D[1];
For i:=1 to n do
begin
If D[i]>0 then
B[i]:=D[i];
If D[i]<0 then
C[i]:=D[i];
If min>C[i] then
min:=C[i];
Write(B[i]:4);
end;
writeln;
Writeln('Отрицательный массив C из D: ');
For i:=1 to n do
begin
Write(C[i]:4);
end;
Writeln();
Writeln('Минимальный элемент в массиве С: ',min);
END.
const k = 0;
var temp : array [1..N] of integer;
i, min, max, count : integer;
begin
min := 1000; max := -1000;
count := 0;
{Заполнение массива данными}
for i := 1 to N do
begin
write(i,'-й месяц: ');
readln(temp[i]);
if (temp[i] > max) then
max := temp[i];
if (temp[i] < min) then
min := temp[i];
{Если температура выше k - месяц считается теплым}
if (temp[i] > k) then
count := count + 1;
end;
writeln('Минимальная температура: ',min);
writeln('Максимальная температура: ',max);
writeln('Количество теплых месяцев: ',count);
readln;
end.