В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
лера2345
лера2345
29.10.2022 18:32 •  Информатика

ЛАЗАРУ Створіть проект: 1) у якому подія Click для поля змінить колір на зелений;
2) для обчислення значення виразу (5m+2)2n;
3) для обчислення значення виразу (5m+2)(7n-1).

Показать ответ
Ответ:
еклвла838
еклвла838
13.11.2022 03:35

//Задан одномерный массив, заполненный 15-тью случайными целыми числами из интервала от -20 до 20.  

//Составь программу, выполняющую следующие действия: Заполнение массива, вывод на экран всех элементов исходного массива в строчку через пробел,  

//сортировка элементов массива по возрастанию, вывод полученного в результате массива на экран с новой строки через пробел.  

program massiv;

var m:array[1..15] of integer;

   i,j:byte;

   t:integer;

   

BEGIN

//заполнение случайными числа в диапазоне [-20;20]

//random(41) выдает случ. значение от 0 до 40, если вычесть -20 с концов этого отрезка получится от -20 до 20

for i:=1 to 15 do m[i]:=random(41)-20;

//вывод  полученного массива на экран

for i:=1 to 15 do write(m[i],' ');

writeln;//переход на следующую строку

//сортировка пузырковым методом

for i:=1 to 14 do

    for j:=i+1 to 15 do

        if (m[i]>m[j]) then begin

          t:=m[i]; m[i]:=m[j]; m[j]:=t;//обмен элементов массива местами

        end;

writeln('Остортированный массив');

//вывод сортированного массива на экран

for i:=1 to 15 do write(m[i],' ');

 

 

END.

Объяснение:

0,0(0 оценок)
Ответ:
applegamm
applegamm
14.01.2021 10:11
1. Для того, чтобы текст был более восприимчив и понятен.
2. Из интернета, архива, галлереи.
3. Чтобы изменить способ размещения рисунка, следует щелкнуть на нём правой кнопкой мыши и выбрать в контекстном меню пункт Формат рисунка.
4. Левая кнопка мыши, нажать на вставить. Или же выбрать в верхнем левом углу выбрать файл и вставить.
5. Нажать два раза правой кнопкой мыши.
6. CTRL + C, CTRL + V. Или же левой кнопкой мыши нажать на рисунок и выбрать пунк: копировать.
7. Левой кнопкой мыши нажать на рисунок и выбрать пункт удалить. Или же нажать на клавишу Del.
8. В разделе Работа с рисунками на вкладке Формат в группе Изменение нажмите кнопку Сжать рисунки. Чтобы выполнить сжатие только для выбранных, а не для всех рисунков в документе, установите флажок Применить только к этому рисунку.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота