Const n=3;
var a: array[1..n] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив: ');
for i := 1 to n do begin
a[i] := random(256);
write (a[i]:4); end;
writeln; writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('массив по возрастанию: ');
for i := 1 to n do
write(а[i]:4);
writeln;
readln;
<span>end.
______________________________
</span>
19 минут = 1140 секунд
примерно 68 Кбайт/секунду
Отличный вопрос, друг. Давно я таких интересных задачек не видел
//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array[1..12] of integer;
i,s:int64;begin;
s:=1;
for i:=1 to 12 do
begin;
readln(ar[i]);
if ar[i]>50 then s*=ar[i];
end;
writeln(s);
<span>end.
Пример ввода:
1 2 3 4 5 6 7 50 50 51 51 <span>70
Пример вывода:
182070
</span></span>
//Task 4
int m;
std::cin >> m;
std::cout << (m%2==0?m-2:m-1);
// Task 5
int a = 0,b,n;
std::cin>>n;
for(int i = 0; i <= n; i ++)
a += i*i;
b = (n * (n + 1) * (2*n + 1))/6;
std::cout<<a<<'='<<b;
// Task 6
int x = 0;
for(int i = 2; x + i < 45;i++)
{
x+=i;
std::cout<<x<<' ';
}
// Task 7
int mult = 1;
int n;
double sum;
std::cin>>n;
for(int i = 1; i < n; i++)
{
sum+=(1/i) * mult;
mult *= -1;
}
std::cout<<sum;
