Const n = 50;
var
a :array [1..n] of integer;
i, sum :integer;
sr :real;
begin
randomize;
for i:= 1 to n do
a[i]:= random(100);
for i:= 1 to n do
sum:= sum + a[i];
sr:= sum/n;
writeln(sr);
end.
Const n=20;
var
a:array[1..n] of integer;
i,j,t,x,i1,i2:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(21);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]<a[j+1] then begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t
end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln;
write('x = ');
readln(x);
i1:=1;
i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]>x then i1:=(i1+i2) div 2+1;
if a[i]<x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then begin
writeln('Искомый(ые) номер(а) элемента(ов):');
while (i>0)and(a[i]=x) do
i:=i-1;i:=i+1;
while (i<=n)and(a[i]=x) do begin
write(i,' '); i:=i+1; <span>end;</span>
end
else writeln('Элемент не найден');
writeln;
end.
Pascal ABC.
Пацан напиши готовое домашние задание там
будет от путина и выбери там
Чтобы решать такие задачки начинай решение с конца. К искомому числу пробуй применять обратные операции (Не *2 +3, а /2 -3). Какие=то будут сразу отпадать, какие-то будут более выгодными на данном шаге.
1. 3 * 2 = 6
2. 6 * 2 = 12
3. 12 * 2 = 24
4. 24 + 3 = 27
5. 27 * 2 = 54
1. 3 + 3 = 6
2. 6 + 3 = 9
3. 9 * 2 = 18
4. 18 * 2 = 36
5. 36 * 2 = 72
6. 72 + 3 = 75