Задание не могу решить )))
Всегда в онлайне.

#include <iostream>
#include <iomanip>
using namespace std;
void Fun(int n)
{
if (n != 3)
{
 double x1; double y1; double x2; double y2; double x3; double y3;
 cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
 double a = sqrt((x1 - x2)*(x1 - x2) + (y1 - y2)*(y1 - y2));
 double b = sqrt((x2 - x3)*(x2 - x3) + (y2 - y3)*(y2 - y3));
 double c = sqrt((x3 - x1)*(x3 - x1) + (y3 - y1)*(y3 - y1));
 double p = (a + b + c) / (double)2;
 double s = sqrt(p*(p - a)*(p - b)*(p - c));
 cout << setprecision(6) << fixed << s;
}
if (n != 6)
{
 double a; double b; double c;
 cin >> a >> b >> c;
 double p = (a + b + c) / (double)2;
 double s = sqrt(p*(p - a)*(p - b)*(p - c));
 cout << setprecision(6) << fixed << s; }
}
int main()
{
int n;
cin >> n;
Fun(n);
return 0;
}

Язык Паскаль.

Program Ski;

const n=5; {длина массива}

var: a:array [1..n] of integer; i,s:integer;

begin

For i:=1 to n do begin

                          Writeln('vvedite element massiva nomer ',i);

                          Read(a[i]);

                        end;    {Тут мы просим пользователя ввести элементы}

s:=0; {s - это указанная тобой сумма. Мы ее соответственно обнуляем сначала}

for i:=1 to n do begin

                          if a[i] mod 10=0 then s:=s+a[i];  

                       end;    

 

{ берем каждый элемент массива, и проверяем, делится ли он на 10 без остатка(mod- это остаток от деления на указанное число). Если все в порядке, тогда прибавляем число к общей сумме }

 

Writeln('summa elementov ravnih nulu ',s);  {пишет ответ}

readln; {чтобы сразу не закрывалась программа}

end.

 

Если возникнут вопросы или появится еще подобное задание для решения, пиши прямо в личку. Мне все равно делать нечего )