В мире существует большое количество профессий, но очень важно найти свое дело. Я мечтаю стать врачом. С самого детства я игралась в доктора и пыталась вылечить всех моих родных. Я знаю, что здоровье - основа благополучной жизни. Поэтому я хочу стать хорошим врачом и сделать жизнь других людей более комфортной.
Для того, чтобы стать хорошим доктором, нужно хорошо учиться. Я стараюсь получать только пятерки и узнавать много нового в разных сферах. Уже сегодня я знаю о многих болезнях и маме следить за здоровьем папы и младшего братика. Профессия врача мне по душе, поэтому я считаю, что стану очень хорошим, добрым, отзывчивым доктором.
Подробнее - на -
Объяснение:
Var m:array[1..1000] of integer;
I,sr,n:integer;
Begin
Clrscr;
Writeln('Введите размер массива');
Readln(n);
For i:=1 to n do
Begin
m[i]:=random(30)+1;
Write(m[i],' ');
Sr:=sr+m[i];
End;
Writeln;
Writeln(' Сред. Арф. = ',sr div n);
Readkey;
End.