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

Визначте, який радіус має коло, намальоване оператором: Image1.Canvas.Ellipse (10, 10, 110,
110);

Показать ответ
Ответ:
Айла2010
Айла2010
18.11.2022 21:27

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

Трудолюбие  

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

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

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

Лояльность

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

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

0,0(0 оценок)
Ответ:
annswi
annswi
25.08.2022 16:27

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-бота