const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:3,' ')
end;
writeln;
write('x = ');
readln (x);
for i:=1 to n do if a[i]=x then writeln('A[',i,'] = ',a[i])
end.
Ответ:
это там где у тебя есть писма смомощу елек почты можно регатся в сетях
<u>1)</u>program array;
var A : array[1..10000] of integer;
i:integer;
begin
for i:=1 to length(A) do begin
if i mod 3 = 0 then
A[i]:=A[i]*2;
end;
end.
<u>-----------------------------------</u>
<u>2)</u>program fff;
var A : array[1..100] of integer;
i,n:integer;
begin
for i:=1 to n do begin
if i mod 3 = 0 then
A[i]:=i;
end;
end.
За это оцени Спасибо,плиз.Я старался)
Вот фото.вся формула обозначена как Ф