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

Нужно написать скрипт для создания блоков


Нужно написать скрипт для создания блоков

Показать ответ
Ответ:
ОВОВОВОВо
ОВОВОВОВо
08.08.2022 11:49

Какие качества нужны, чтобы стать хорошим специалистом?

Трудолюбие  

ответственность  

Умение работать в команде  

Стремление к личностному росту, развитию профессиональных качеств .

Лояльность

Как ты понимаешь высказывание: «Самая трудная профессия - быть человеком»?

Действительно, самой трудной профессией является быть человеком. В нашей жизни всё зависит от самого человека, что он будет считать смыслом своей жизни, к чему будет стремиться, на что будет тратить свои силы. Трудно жить среди людей, но надо постоянно стремиться стать лучше. Нужно всегда быть человеком, думать о других, стараться творить добро, приносить людям пользу. Человеком надо быть всегда и везде, каждую минуту, без выходных и праздников. Мы должны пробовать облегчить жизнь другим людям, поддерживать и любить своих близких, в том, чтобы жить ради других людей и заключается предназначение каждого человека, человек должен быть человечным. Надо стараться быть добрее и гуманнее, справедливее по отношению к другим людям, хотя это и является самой трудной профессией - быть человеком.

0,0(0 оценок)
Ответ:
harweybeaks
harweybeaks
30.11.2021 02:03

pascal

Объяснение:

procedure sortmas(a: array of integer);

var i, j, min, ind: integer;

begin

 for i := 0 to Length(a) - 2 do

 begin

   min := a[i]; ind := i;

   for j := i + 1 to Length(a) - 1 do

     if a[j] < min then

     begin

       min := a[j]; ind := j;

     end;

   a[ind] := a[i]; a[i] := min;

 end;

end;

var a: array of integer;

   n , i: integer;

begin

 WriteLn('Введите размер массива: '); Read(n);

 SetLength(a, n);

 Randomize;

 WriteLn('Содержимое массива:');

 for i := 0 to Length(a) - 1 do

 begin

   a[i] := random(100);

   Write(a[i], ', ');

 end;

 WriteLn;

 sortmas(a);

 WriteLn('Три минимальных элемента: ', a[0], ', ', a[1], ', ', a[2], ', ');

end.

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