console.writeline("введите количество чисел");
int n = convert.toint32(console.;
int[] a = new int[n];
console.writeline("введите числа");
for (int i = 0; i < n; i++)
a[i] = convert.toint32(console.;
int count = 0;
int min=a[0];
int max = a[0];
console.writeline("количество отрицательных");
for (int i = 0; i < n; i++)
if (a[i] < 0) { count++; }
console.writeline(count);
for (int i = 0; i < n; i++)
if (min > a[i]) { min = a[i]; }
console.writeline("минимальный элемент = "+min );
for (int i = 0; i < n; i++)
if (max < a[i]) { max = a[i]; }
console.writeline("максимальный элемент = "+ max);
int s = 0;
s = min + max;
console.writeline("сумма");
console.writeline(s);
console.writeline("числа кратные пяти и не больше числа задаваемым пользователем");
for (int i = 0; i < n; i++)
if (a[i] % 5==0 & & a[i]< n)
{ console.writeline(a[i]); }
console.readline();
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.