Ввести с клавиатуры двузначное число. определить, делится ли оно на сумму своих цифр.

84 делится на сумму своих чисел 

#1

var

a : array [1..21] of integer;

min : integer : = 32766;

begin

for var i: =1 to 21 do

  readln(a[i]);

for var i: =1 to 21 do

if (a[i] < min) then

min : = a[i];

writeln(min);

end.

#2

var

y : array [1..25] of integer;

isthefirst : boolean : = false;

last : integer : = 0;

begin

for var i: =1 to 25 do

  readln(y[i]);

for var i: =1 to 25 do

  if (y[i] < 0) and (isthefirst = false) then

    begin

    writeln(i);

    isthefirst : = true;

    break;

    end;

for var i: =2 to 25 do

begin

if (i = 25) then  

begin

if (y[i] < 0) and (last = 0) then

last : = i;

break;

end;

if ((y[i+1] > 0) and (y[i] < 0)) then

last : = i;

end;

if (isthefirst) and (last = 0) then

last : = 1;

if (last < > 0) then

writeln(last) else

writeln('there''no numbers');

end.

//не бейте за кастыли . мне лень

#2

type tintmassiv = array of integer;   //дин. массив (более гибок в работе)

var  

n : integer;

sum : integer : = 0;

counter : integer : = 0;

var a: tintmassiv;

begin

readln (n);

setlength(a, n);

for var i: =0 to n-1 do

begin

readln(a[i]);

if (a[i] > 0) and (a[i] mod 2 = 0) then

begin

sum += a[i];

counter += 1;

end;

end;

if (sum = 0) or (counter = 0) then

begin

writeln('there''re no numbers');

exit;

end;

writeln(sum/counter);

end.

Вискусственной классификации за основу берут один или несколько легко различимых признаков. она создается и применяется для решения практических , когда главным является удобство использования и простота. искусственной классификацией была и упоминавшаяся уже система классификации, принятая в древнем китае. линней всех червеобразных организмов объединил в одну группу vermes. в эту группу вошли крайне различные животные: от простых круглых (нематоды) и дождевых червей до змей. классификация линнея также относится к разряду искусственных, поскольку в ней не учитывались важные природные взаимоотношения — в частности тот факт, что у змей, например, имеется позвоночник, а у дождевого червя его нет. на самом деле змеи имеют больше общего с другими позвоночными, чем с червями. примером искусственной классификации рыб может служить разделение их на пресноводных, морских и рыб, населяющих солоноватоводные водоемы. эта классификация основана на предпочтении этими животными определенных условий окружающей среды. эволюционное древо жизни, охватывающее пять царств по классификации маргелиса и шварца. длина линий не отражает продолжительности соответствующего периода. такое разделение удобно для изучения механизмов осморегуляции. аналогично этому всех организмов, которых можно видеть с микроскопа, называют микроорганизмами, объединяя их таким образом в единую группу, удобную для изучения, но не отражающую естественных взаимосвязей.