Кто сможет написать программу в ПАСКАЛЕ АВС ???
1)создать массив из 10 случайных чисел, найти в нем заданное число b двоичным методом
2) создать массив из 10-ти фамилий и упорядочить его по алфавиту методом выбора
ПАСКАЛЬ !!!
1)создать массив из 10 случайных чисел, найти в нем заданное число b двоичным методом
2) создать массив из 10-ти фамилий и упорядочить его по алфавиту методом выбора
ПАСКАЛЬ !!!
Первая думаю так пойдет
var
i,b,bb:integer; a:array[1..10] of integer;
begin
bb:=11;
write('Введите число b'); readln(b);
for i:=1 to 10 do begin
a:=random(10);
write(a);
if (i=5) and (a=b) then
bb:=i
else
if (i=3) and (a=b) then
bb:=i
else
if (i=1) and (a=b) then
bb:=i
else
if (i=4) and (a=b) then
bb:=i
else
if (i=2) and (a=b) then
bb:=i
else
if (i=7) and (a=b) then
bb:=i
else
if (i=9) and (a=b) then
bb:=i
else
if (i=6) and (a=b) then
bb:=i
else
if (i=10) and (a=b) then
bb:=i
else;
end;
writeln;
if bb<11 then
write('Число b найдено '+inttostr(bb)) else
write('Число b не найдено');
end.