Ответы на вопрос:
Место, где можно:
1 - включить предварительный просмотр анимаций и эффектов, созданных для данного слайда.
9 - указать интервал времени, через которое будет автоматически меняться слайд.
program fantscrin;
const n = 10;
var a: array [1..n] of integer;
i,j,k: integer; s: real;
begin
for i: =1 to n do
a[i]: =random(20)-10;
for i: =1 to n do
write(a[i], ' ');
for i: =1 to n do
for j: =1 to n-1 do
if (a[j]< a[j+1]) then
begin
k: =a[j];
a[j]: =a[j+1];
a[j+1]: =k;
end;
writeln('');
for i: =1 to n do
write(a[i], ' ');
s: =0;
for i: =1 to n do
if ((a[i] < 0)and(i mod 2=0)) then s: =s+1;
writeln('');
writeln(s);
end.
Популярно: Информатика
-
nikaz108.05.2021 19:16
-
Lunitoes07.12.2021 05:18
-
dum331.10.2020 08:16
-
софилка28.08.2021 13:58
-
leo0000027.06.2020 10:55
-
mrkobra17.08.2020 14:50
-
MariaUralova29.12.2020 05:19
-
kategorn125.05.2021 04:32
-
olgagolova29.05.2023 19:12
-
Dinka159704.11.2020 12:24