?>
Установка режима выравнивания Выделение фрагмента текста2. Точка графического экрана может быть окрашена в один из следующихцветов: красный, зеленый, коричневый, черный.черный. Какой объемвидеопамяти будет выделен для кодирования каждого пикселя?А. 4 битаВ. 4 байтаД. 3 битаБ. 2 байтаГ. 2 битаЧто можно отнести к достоинствам векторной графики по сравнению срастровой?А. Малый объем графических файловБ. Ступенчатый эффект при масштабированииВ. Возможность просмотра изображения на экране графическогоДисплеяГ. Возможность распечатать на принтереГрафическим редактором называется программа, предназначенная дляA. Редактирования графического изображения символов шрифтаБ. Построения диаграммаВ. Работы с графическими изображениямиГ. Создания графического образа текстаД. Просмотра фотографийИ ЯВЛЯЮТСЯ
Ответы
N = 15;
var
mas:array[1..15] of integer;
i, max1, max2, min, c, d:integer;
begin
c:=-1;
max1:=-maxint;
min:=maxint;
max2:=-maxint;
randomize;
for i:=1 to N do
mas[i]:=random(101)-50;
write('Массив: ');
for i:=1 to N do
write(mas[i], ' ');
writeln;
for i:=1 to N do
begin
if (mas[i]>0) AND (mas[i]>max1) then
max1:=mas[i];
if (mas[i] mod 2 <> 0) AND (max2<mas[i]) then
begin
c:=i;
max2:=mas[i];
end;
if (mas[i] mod 2 <> 0) AND (min>mas[i]) then
begin
d:=i;
min:=mas[i];
end;
end;
writeln('Максимальный положительный элемент: ',max1);
writeln('Минимальный нечетный элемент: ',min);
writeln('Максимальный нечетный элемент: ',max2);
if c<d then
writeln('Максимальный элемент стоит раньше')
else
writeln('Минимальный элемент стоит раньше');
end.