1.напечатать ряд из n раз повторяющихся чисел. 2.для вводных с клавиатурой произвольного количества чисел.найти сумму и их количество . 3.найти сумму: 1/5+1/10+1/+1/50

Program First;
var
n, num, i : integer;

begin
write('Введите число: ');
readln(num);
write('Число повторений: ');
readln(n);
for i:=1 to n do write(num, ' ');
end.

program Second;
var
num, count, summ : integer;

begin
writeln('Вводите числа. (для выхода введите число 0)');
count:=0;
summ:=0;
repeat
readln(num);
if num<>0 then
begin
count:=count+1;
summ:=summ+num;
end;
until num=0;
writeln ('Введено ', count, ' чисел, на сумму ', summ);
end.

program Third;
var
z : integer;
s : real;

begin
z:=5;
s:=0;
repeat
s:=s+1/z;
z:=z+5;
until z=50;
writeln ('Сумма равна: ', s:7:4);
end.

Каждый год около тысячи команд со всей Японии вступают в ожесточенное сражение на турнире роботов. В этом состязании вы не увидите бензопил, факелов и электрических разрядов — словом, ничего из того, что приходит в голову, когда вы слышите фразу «битва роботов».

Речь идет не просто о битве — это робо-сумо, которое ценят за особые качества: за элегантность, простоту и возможность проявить интеллект в стратегии. Соревнование проходит на круглом металлическом ринге диаметром всего 1,5 м, по периметру которого нарисована белая линия шириной 5 см. Робот, пересекший эту границу, считается проигравшим. И в этой кажущейся простоте кроется бездна возможностей.

Расскажем, как «битва роботов» стала интеллектуальным соревнованием для программистов, и дадим подробную инструкцию по сборке робо-сумоиста.Глаза робота — датчики инфракрасного излучения. Степень ИК-отражения измеряется светочувствительным элементом. Белый цвет границы выбран не случайно — он отражает больше света, чем черная поверхность ринга.

Робот оснащен несколькими ИК-датчиками, ответственными за «поиск» границы. Передние датчики, как правило контролировать скорость движения — боец не должен покинуть поле из-за чрезмерной ретивости. Тыловые датчики «следят» за приближением к границе ринга: получив от них отклик, робот меняет направление движения.

А измеряя время, необходимое для отражения лучей, можно понять местоположение противника. Многие роботы (но не все) меняют направление, учитывая этот параметр.Помимо перечисленных преимуществ, у ИК-датчиков есть и недостаток — поле зрения остается узким, за счет чего появляется множество слепых зон, использование которых в атаке — основная стратегия высокоманевренных роботов.

Однако это работает только с автономными роботами. Когда самостоятельный робо-сумоист сталкивается с радиоуправляемым противником, он не может использовать стратегию атаки слепых зон, так как оператор видит больше, чем робот.

Вместо того чтобы атаковать слепые точки, автоботы применяют стратегию атаки с углов. В целом же у борца не так много доступных маневров: поворот, толкание, торможение и остановка.

Однако чтобы запутать противника некоторые бойцы выбрасывают белые флаги с одной или с двух сторон корпуса. Заманивая противника к флагу, они атакуют его уязвимую сторону и выталкивают с ринга.

Конечно, появились и защиты от такой атаки. Появление флажков слева и справа означает, что корпус робота находится в центре. Если же робот выбросил флаг с одной стороны, то его корпус находится в противоположном месте.

Некоторые боты могут не только заманивать противника, но и скрываться от его датчиков. Для этого их красят в черный цвет или добавляют отражающие покрытия.

#include <cstdio>
#include <iostream>

using namespace std;

int main ()
{
    int n = 10;
    int a[11];

    srand(time(NULL));

    for (int i = 0; i < n; i++)
    {
        a[i] = rand() % 100;
    }

    for (int i = 0; i < n; i++)
        for (int j = 1; j < n; j++)
        {
            if (a[j - 1] < a[j])
                swap(a[j - 1], a[j]);
        }

    for (int i = 0; i < n; i++)
    {
        cout << a[i] << " ";
    }
}

srand( ) нужен для генерации каждый раз новой последовательности рандомных чисел