Регистрация
ibama
Есть ответ 👍

КАК Актеру играть любую роль?

282
401
Посмотреть ответы 2

Ответы на вопрос:

BlackL706
BlackL706
4,6(7 оценок)

Надо вжиться в образ, прочувствовать своего героя, сконцентрироваться на нём.

superbogdanova
superbogdanova
4,4(72 оценок)
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.

Популярно: Другие предметы