S1mplendnnd
02.10.2022 05:02

1.<br />
Как называется режим работы монитора, при котором программа может управлять отдельными точками на экране монитора, строить по точкам диаграммы и графики, а также выводить на экран растровые изображения?<br />
1)Текстовый режим<br />
2)Растровый режим<br />
3)Векторный режим<br />
4)Графический режим<br />
2.<br />
Холст – это прямоугольная область экрана, доступная для рисования.Рисунки на холсте – это … изображения.<br />
1)Векторные<br />
2)Растровые<br />
3)Фрактальные<br />
4)Трехмерные<br />
3.<br />
В СКИ графических исполнителей есть команды, которые рисуют сразу целые геометрические фигуры. Как называются эти фигуры?<br />
1)Графические объекты<br />
2)Многоугольники<br />
3)Трехмерные объекты<br />
4)Графические примитивы<br />
4.<br />
Команда пиксель Рисователя<br />
1)Добавляет пиксель на холст<br />
2)Изменяет цвет пикселя с заданными координатами<br />
3)Удаляет пиксель с холста<br />
5.<br />
Команда новый лист Рисователя<br />
1)Создает холст<br />
2)Стирает рисунок на холсте<br />
3)Создает новый лист<br />
4)Добавляет новые пиксели на холст​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
banni11
16.03.2023 05:28
Первый вариант программы:
Const
   N = 5;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    S:=S+A[i];
    End;
WriteLn;
WriteLn('Сумма его элементов: ',S);
End.

Пример:
Исходный массив: -6 -9 8 7 1
Сумма его элементов: 1

Второй вариант программы:
Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,S,B:integer;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    End;
WriteLn;
Write('Введите номера пяти элементов: ');
For i:= 1 to 5 do
    Begin
    Read(B);
    S:=S+A[B];
    End;
WriteLn('Их сумма равна: ',S);
End.

Пример:
Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1
Введите номера пяти элементов: 3 4 7 12 1
Их сумма равна: 23
0,0(0 оценок)
Ответ:
Leonelle
21.02.2022 14:06
Const
    N = 15;
Var A:array[1..N] of integer;
    i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    if A[i] mod 2 = 0 then Kc:=Kc+1;
    if A[i] mod 2 <> 0 then
       Begin
       Sn:=Sn+A[i];
       Kn:=Kn+1;
       End;
    if A[i]>0 then A[i]:=0;
    End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
    Write(' ',A[i])
End.

Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота