1)дан массив из 10 чисел. найти произведение положительных чисел. 2)дан массив из 10 чисел. найти сумму отрицательных.

Program t1; var a: array [1..10] of integer; i: byte; s: longint; begin s: =1; for i: = 1 to 10 do begin readln (a[i]); if a[i]> 0 then s: =s*a[i]; end; write (s); readln; end. для отрицательных чисел замени a[i]> 0 на a[i]< 0 , s: =s*a[i] на s: =s+a[i] и s: =1 убери

program test;

var i: integer;

begin

for i:=11 to 99 do

if i=(i+i-1) div 10 + (i+i-1) mod 10 * 10 then

writeln (i-1,' ',i)

end.

36 и 37

Объяснение:

for i:=11 to 99 do - перебираем двузначные числа

(i+i-1) - вычисляем сумму двух последовательных двузначных чисел

(i+i-1) div 10 - получаем первую цифру получившейся суммы

(i+i-1) mod 10 - получаем вторую цифру получившейся суммы

(i+i-1) mod 10 * 10 - чтобы переставить цифры в сумме умножаем последнюю цифру на 10 (из единиц делаем десятки)

(i+i-1) div 10 + (i+i-1) mod 10 * 10 - переставляем цифры в получившейся сумме

if i=(i+i-1) div 10 + (i+i-1) mod 10 * 10 then - сравниваем большее из двузначных чисел с числом получившемся после перестановки цифр суммы

#include <iostream>

using namespace std;

void findDayOfWeek(int day) {

switch (day) {

 case 1:

  cout << "Понедельник";

  break;

 case 2:

  cout << "Вторник";

  break;

 case 3:

  cout << "Среда";

  break;

 case 4:

  cout << "Четверг";

  break;

 case 5:

  cout << "Пятница";

  break;

 case 6:

  cout << "Суббота";

  break;

 case 7:

  cout << "Воскресенье";

  break;

 default:

  findDayOfWeek(day - 7);

}

}

int main() {

setlocale(0, "RU");

int day;

cin >> day;

findDayOfWeek(day);

return 0;

}