Паскаль.заполнить одномерный массив случайными числами от -70 до 30, посчитать сумму отрицательных элементов массива и вычислить её абсолютную величину.

Var a: array[1..1000] of integer; n, i, suma: integer; begin write('введите количество чисел массива '); readln(n); suma: =0; for i: =1 to n do begin a[i]: =random(101)-70; if(a[i]< 0) then suma: =suma+a[i]; end; write('массив '); for i: =1 to (n-1) do write(a[i],', '); writeln(a[n],' '); writeln('сумма отрицательных элементов ',abs(suma)); end.

Как организовать ожидание в программе до нажатия какой-либо клавиши? В QBasic для этой цели подойдет системная переменная INKEY$. Достаточно присвоить ее значение какой-либо символьной переменной, например А$, и организовать бесконечный цикл до тех пор пока длина значения А$ перестанет отличаться от нуля:

А$=""

М10 : A$=INKEY$ ; IF А$="" THEN GOTO M10

Можно воспользоваться и другим приемом — включить в программу оператор ввода в какую-либо переменную символьного типа. Такая переменная предпочтительнее числовой, т. к. в нее можно ввести пустое значение, нажав только клавишу <Enter>. Кроме того, набор любого отображаемого символа не приведет к ошибке.

В Си временный приостанов до нажатия какой-либо клавиши организуют с функции getch.

В Паскале можно организовать бесконечный цикл, аналогичный приведенному выше варианту для QBasic, с логической функции KeyPressed:

while not KeyPressed;

var

 N: integer;

begin

 write('N = ');

 readln(N);

 writeln;

 writeln('Цифры числа (справа налево):');

 while N > 0 do { <-- Выполняем цикл, пока число больше 0 }

 begin

   write(' ', N mod 10); { <-- выводим остаток деления на 10 }

   N := N div 10 { <== находим целую часть от деления на 10 }

 end;

 readln

end.

Примеры

Входные данные

3

v 3

l 1

u 2

luvu

3

luv

vul

uuu

Выходные данные

6

11 задание не знаю сорри бро дай корону

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

Основной структурной единицей на интернет-аукционе является лот. Лот — публикация информации о продаже определённого товара, либо группы товаров, размещённая в системе интернет-аукциона. Продавец описывает товар, по возможности добавляя реальную фотографию выставляемого лота.

Интернет-аукционы позволяют отслеживать рейтинги и репутацию участников торгов, предоставляют площадку для оплаты и разрешения споров. За счёт использования международной телекоммуникационной сети «Интернет» значительно расширяется круг потенциальных покупателей.