Полюбому ты эти вопросы взял из книжки, поэтому посмотри тему и ты найдешь свой ответ
<span>#include <iostream>
using namespace std;
int main()
{
cout << "Hello world!";
return 0;
<span>}</span></span>
Var
i, j: integer;
ar: array[1..5, 1..5]of real;
b: boolean; //объявление переменных
begin
for i := 1 to 5 do
for j := 1 to 5 do read(ar[i, j]); //ввод матрицы
for i := 1 to 5 do
begin
b := true;
for j := 1 to 2 do
if(ar[i, j] <> ar[i, 5 - j + 1]) then //проверяем равен ли 1 элемент 1 строки
// последнему элементу 1 строки, 2 элемент 1 строки и 5-1 элемент
//если они неравны то выходим из одного цикла
begin
b := false; //б -ложь значит строка не симметрична
break;
end;
if(b = true) then write(i, ' '); //если б -истина выводим номер строки
end;
end.
Логика такая:
1) Число 157 - это суммы 15 и 7 в порядке убывания, т.к. 1 и 57 не подойдут в виду условий задачи.
2) Пусть наименьшее число abc, тогда желательно b+c = 15, а a+b = 7.
Подберем: чтобы цифра b в нашем числе было наименьшей, цифра c должна взять на себя наибольшее значение -> 9. Тогда b = 6.
Итого: a69.
a будет 1, т.к. 1+6 = 7.
Таким числом является 169.
Проверим: 1+6 = 7. 6+9 = 15. В порядке убывания получается 157.
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ArrRandom(15,-50,50); x.Println;
var (sn,sp):=(0,0);
foreach var m in x do
if m>0 then sp+=m else sn+=m;
Writeln('Разница между суммой положительных и отрицательных ',sp-sn)
end.
<u>Пример</u>
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373
Во вложении видно, что х - именно массив (array of integer)