Предмет:
ИнформатикаАвтор:
diet cokepdwrАвтор:
sadieАвтор:
linaccprАвтор:
gretchenhodgesАвтор:
mckenzieАвтор:
rudynovakАвтор:
shyannejohnsconst n=11;
var b:array[1..n] of integer;
i,j,c,a:integer;
begin
randomize;
for i:=1 to n-1 do begin
b[i]:=random(50);
write(b[i]:3);
end;
writeln;
for i:=1 to n-2 do
for j:=n-2 downto i do
if b[j]>b[j+1] then begin
c:=b[j];
b[j]:=b[j+1];
b[j+1]:=c;
end;
writeln;
writeln('Введите число а');
read(a);
writeln('a= ',a);
b[n]:=a;
for i:=1 to n do
write(b[i]:3);
end.
Автор:
dwayneАвтор:
mayraДобавить свой ответ
Предмет:
Русский языкАвтор:
giannalongОтветов:
Смотреть
Предмет:
МатематикаАвтор:
shelby30Ответов:
Смотреть
Предмет:
МатематикаАвтор:
phoenixgzzjОтветов:
Смотреть