Текст программы на языке Pascal:
program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
<span>end.</span>
ИК-порт:пульт-телевизор.
Bluetooth: Мобильный телефон
15)program 15;
uses crt;
var a, b, c:integer;
otv:real;
begin
readln (a, b, c);
if (a> 0) and (b> 0) and (c> o ) then begin
writeln (sqrt (a), sqrt (b), sqrt (c));
end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END;
readln
end.
Var i,k: integer;
a: array[1..16] of integer;
priz: boolean;
st: string;
begin
k:=0; priz:=false;
st:='';
randomize;
writeln('исходный массив из 16 элементов');
for i:=1 to 16 do
begin
a[i]:=random(50)-30;
write(a[i],' ');
if a[i]<0 then k:=k+1;
if (a[i] mod 3) = 0 then
begin
priz:=true;
if i>9 then
st:=st+chr(ord(49))+chr(ord((i mod 10)+48))+','
else st:=st+chr(ord(i+48))+',';
end;
end;
writeln;
delete(st,length(st),1);
if k>0 then
writeln('кол-во отрицат. элементов = ',k);
if priz then
writeln('индексы элементов, кратных трем: ',st)
else writeln('нет элементов, кратных 3');
readln;
<span>end.
</span>