Зависимость между объектами представлена в варианте С).
Это только ответ на 1 вопрос.
var a, i, n, b, sum:integer;
begin
sum:=0;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a>9) and (a mod 2=0) then
sum:=sum+a;
writeln(sum);
end;
end.
Источник: объясняет, показывает, рассказывает.
Приёмник: смотрит, пробует на вкус, трогает, слушает, читает, воспринимает, передаёт.
В)<span>программа , обеспечивают работу устройства компьютера</span>
Var a:array [1..100] of integer;
<span>i:integer; </span>
<span>begin </span>
<span>randomize; </span>
<span>for i:=1 to 100 do begin </span>
<span>a[i]:=random(i); </span>
<span>if (a[i]>=10) and (a[i]<=99) then write (a[i],' '); </span>
<span>end; </span>
<span>end.</span>