Чему равна относительная влажность воздуха, содержащего насыщенный водяной пар?
209
405
Ответы на вопрос:
uses crt;
const max=100;
var a:array[1..max] of integer;
n,i,j:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if odd(a[i])and(odd(a[j]))and(a[i]>a[j]) then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Нечетные элементы отсортированы по возрастанию:');
for i:=1 to n do
if odd(a[i]) then
begin
textcolor(12);
write(a[i]:3);
end
else
begin
textcolor(15);
write(a[i]:3);
end;
textcolor(15);
readln
end.
const max=100;
var a:array[1..max] of integer;
n,i,j:byte;
x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i]:3);
end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if odd(a[i])and(odd(a[j]))and(a[i]>a[j]) then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Нечетные элементы отсортированы по возрастанию:');
for i:=1 to n do
if odd(a[i]) then
begin
textcolor(12);
write(a[i]:3);
end
else
begin
textcolor(15);
write(a[i]:3);
end;
textcolor(15);
readln
end.
Популярно: Другие предметы
-
mariauizly8811.07.2020 05:26
-
СоняЗагребова507.04.2022 22:36
-
ketjaan1310.01.2022 20:19
-
ryazhechkina25.11.2020 18:30
-
edsrghhythg16.01.2023 07:46
-
ЗНАНИЯ8811.12.2021 09:10
-
marat200267117.12.2020 02:53
-
коьик129.07.2021 08:11
-
gopd205.12.2021 15:50
-
ыллылыов28.11.2020 01:04