По м о г и т е .программирование на языке pascal. 1) два числа называются дружественными, если каждое равно сумме делителей другого, исключая само число. найти все дружественные числа, не превосходящие k.2) заменить в массиве первый кратный 5 элемент нулем.3)даны два массива. получить третий массив, включая в него только те элементы, которые встречаются в исходных массивах только раз.

Вот программа : program xxx; 
<p>program xxx;</p><p>&nbsp;&nbsp; var i, k, d, e, s : integer;</p><p>begin</p><p>&nbsp; k:=0;</p><p>&nbsp;for i:= 10 to 99 do</p><p>&nbsp;&nbsp; begin</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d:= i div 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e:= i mod 10;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; s:=d + e;</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if i mod s = 0 then k:=k+1</p><p>&nbsp;&nbsp; end;</p><p>&nbsp;&nbsp; write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p>&nbsp;&nbsp; readln</p><p>end.</p>

1) var  a: array[0..10] of integer;  i, s: integer;
begin    
for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');    
if a[i]<=20 then s:=s+a[i];
end;  
writeln;  
writeln(s);
end.

2) var  a: array[0..10] of integer;  i, s: integer;
begin    for i := 1 to 10 do   begin    
a[i] := random(60);    
write(a[i], ' ');  
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.    
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.  
end;    
writeln;  
writeln(s);
end.