Дано уравнение: xt1-yt2-zt3=0 условие: x, y, z - вводит пользователь, причем x, y, z больше 0 (нуля); t1, t2, t3 должны быть больше 0 (нуля программа на паскале решения данного уравнения. всю голову уже есть умные решения.

Если числа натуральные, что решение такое:

var

x,y,z,t1,t2,t3:integer;

begin

readln(x,y,z);

for t1:=1 to 9999 do

for t2:=1 to 9999 do

for t3:=1 to 9999 do

if x*t1 - y*t2 - z*t3 = 0 then

writeln('t1=',t1,'; t2=',t2,'; t3=',t3)

end.

Не знала в каком диапазоне должны быть корни, так что вместо 9999 ставьте, что нужно

Решение в натуральных числах

*** Текст программы на PascalABC.NET ***

begin
  var (x,y,z):=ReadInteger3('Введите x,y,z:');
  var (a1,a2,a3):=ReadInteger3('Введите максимальные значения t1,t2,t3:');
  var k:=0;
  for var t1:=1 to a1 do
    for var t2:=1 to a2 do
      for var t3:=1 to a3 do
        if x*t1-y*t2-z*t3=0 then k+=1;
  if k=0 then Writeln('Решений нет')
  else
  begin
    Writeln('Найдено решений: ',k);
    if ReadInteger('Выводить решения? (1-да):')=1 then
    for var t1:=1 to a1 do
      for var t2:=1 to a2 do
        for var t3:=1 to a3 do
          if x*t1-y*t2-z*t3=0 then
            Writeln($'{x}x{t1}-{y}x{t2}-{z}x{t3}=0')
  end;
  Writeln('Работа программы завершена')
end.

*** Пример работы с программой ***

Введите x,y,z: 3 5 7
Введите максимальные значения t1,t2,t3: 10 10 10
Найдено решений: 3
Выводить решения? (1-да): 1
3x4-5x1-7x1=0
3x8-5x2-7x2=0
3x9-5x4-7x1=0
Работа программы завершена

Sub Strange()

   Dim r As Range, a As Variant, b As Variant, e As Variant, Max As Variant

   Set r = Selection

   a = r

   Max = -1E+100

   For Each e In a

       If e < 0 And e > Max Then

           Max = e

       End If

   Next

   Dim i As Integer, j As Integer

   b = a

   j = LBound(b, 2) - 1

   For i = LBound(a, 2) To UBound(a, 2)

       If a(1, i) = Max Then

           j = j + 1

           b(1, j) = i

       End If

   Next

   Set r = Range(Cells(2, 1), Cells(2, j))

   Rows(2).Clear

   r = b

End Sub

#include <iostream>

using namespace std;

int main(){

   int n, count = 0, suma = 0;

   cout<<"Vvesti kolichestvo elementow massiva\n";

   cin>>n;

   int arr[n];

   cout<<"Vvesti elementy massiva\n";

   for (int i = 0; i < n; ++i) {

       cin>>arr[i];

   }

   for (int i = 0; i < n; ++i) {

       if (arr[i]%5==0){

           count ++;

           suma += arr[i];

       }

   }

   cout<<"Kolichestvo elementov kratnyh 5 = "<<count<<endl;

   cout<<"Summa elementov kratnyh 5 = "<<suma<<endl;

}

Объяснение:

Создаем переменную n которая будет определять количество элементов в массиве.  Потом объявляем переменные count(подсчет элементов кратным 5) и suma(аналогично).

Вводим количество элементов массива и заполняем сам массив.

Далее идет цикл и в нем условие "Если элемент массива при делении на 5 дает остаток 0(то есть число кратное 5) то..."

В условии к count добавляем 1 элемент каждый раз, когда условие правдиво.

К суме добавляем сам элемент, в том же случае.

Ну и выводим эти переменные