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

Var   i, j, n, kolpol, kolotr, sum, p, ch, k : integer;   a : array of integer; begin   readln(n);   setlength(a,n+1);   randomize;   for i: = 1 to n do       a[i]: = random(100)-50;     sum: = 0; p: = 1;   for i: = 1 to n do   begin       if a[i] > 0 then       begin           inc(kolpol);           sum: = sum + a[i];       end;       if a[i] > 0 then       begin           inc(kolotr);           p: = p * a[i];       end;   end;     writeln('количество положительных элементов: ',kolpol);   writeln('сумма положительных элементов: ',sum);   writeln('количество отрицательных элементов: ',kolotr);   writeln('произведение отрицательных элементов: ',p);     i: = 1; p: = 1; ch: = 0;   while (a[i] > = 0) and (i < > n+1) do   begin       p: = p * a[i];       inc(ch);       inc(i);   end;     if ch < > 0 then        writeln('произведение до первого отрицательного элемента: ',p)   else       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;   writeln('массив отсортирован по возрастанию: ');   for i: = 1 to n do       write(a[i],'  '); end.

program amountnumbers;

var

 amount, number, a: integer;

begin

 write('Введите трехзначное число: ');

 read(number);

 writeln('Введите число А:');

 read(a);

 while number > 0 do

 begin

   amount := amount + number mod 10;

   number := number div 10;

 end;

 if (amount mod a = 0) then

   writeln('Да')

 else

   writeln('Нет');

end.

Объяснение:

program amountnumbers;  // Название программы

var

 amount, number, a: integer;  // Целочисленные переменные:

amount - сумма цифр трехзначного числа;number - трехзначное число, вводимое с клавиатуры;a - число для проверки на кратность.

begin  // Начало программы

 write('Введите трехзначное число: ');  // Вывод сообщения в консоль

 read(number);  // Считываем трехзначное число с клавиатуры

 writeln('Введите число А:');  // Вывод сообщения в консоль

 read(a);  // Считываем число А с клавиатуры

 while number > 0 do  // Пока значение переменной number > 0

 begin  // Начало цикла

   amount := amount + number mod 10;  // Сумма цифр = сумма цифр + последняя цифра числа

   number := number div 10;  // Отделяем последнюю цифру от числа

 end;  // Конец  цикла

 if (amount mod a = 0) then  // Если значение переменной amount делится на значение переменной A без остатка, тогда

   writeln('Да')  // Вывод сообщения в консоль

 else  // Иначе

   writeln('Нет');  // Вывод сообщения в консоль

end. // Конец программы

ответ:

1)3 т.к. а=10

это не меньше пяти и значит из а надо вычесть 7

2)

a : = 10

//а стало равной 10

если a > 5

//10> 5

то a : = a + 12

//значит выполняем это(к а прибавим 12 и получим 22

иначе a : = a - 7

//это игнорим

все

если a > 5

//22> 5

то a : = a + 12

//выполним этот кусок: к а прибавим 12, значит а равно 34

иначе a : = a - 7

все

ответ: 34

3)

a : = 10; b : = 5

//а равно 10, б пяти

если a > 5 и a < b

//а больше 5, но а не меньше чем б, значит ничего не изменяем

то a : = a - 5

все

а осталась прежней, 10