var a:array[1..10] of integer;
i,k,s:integer;
begin
s:=0;
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.
Использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(-2,0)
сместиться на вектор(2,2)
сместиться на вектор(0,-4)
<span>кон</span>
Привет дорогой друг!
Мое лето прошло замечательно. Я весело отдыхал на море, загорал, собирал ракушки и гулял с друзьями. В конце лета меня отправили на дачу. Там я помогал бабушке по хозяйству, а также ходил на речку. Полагаю, что это лето было самым лучшим в моей жизни!
А как ты отдохнул?
Нет,он не кодировал!
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
<span>end.</span>
Я отвечу своими словами. Действие объекта - это, что может делать сам объект или что могут делать с данным объектом. Для характеристики объекта совершенно не важно, сам объект выполняет действие или он испытывает воздействие со стороны другого объекта. Дейтсвие, применяемое к объекту, приравнивается к действию, выполняемому объектом.<span>Что бы описать дейтсвие объекта, мы должны ответить на вопрос "Что он может делать?"</span>