<span>Устройства ввода - клавиатура, мышь, сенсорный дисплей, стилус и тд</span>
<span>все очень легко;)
внутри проверка (i mod 3 =0) and (i mod 10 = 2) и суммируй</span>
Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
<em>var n:longint;</em>
<em> f:boolean;</em>
<em>begin</em>
<em> write ('N = ');</em>
<em> readln (n);</em>
<em> f:=false;</em>
<em> while (n<>0) do</em>
<em> begin</em>
<em> if (n mod 10)=7 then </em>
<em> begin</em>
<em> f:=true;</em>
<em> break;</em>
<em> end;</em>
<em> n:=n div 10;</em>
<em> end;</em>
<em> if f then writeln ('YES') else writeln ('NO');</em>
<em>end.</em>
Ответ:
1)источник:задача на доске приемник:доска(вроде) носитель:ученик
вот например так надо делать