Дан массив а целых чисел, состоящий из 25 элементов. заполнить с клавиатуры. 3)найти элемент массива кратный 12 и его индекс. 4)найти сумму положительных элементов, значения которых меньше 10. 5)вывести индексы тех элементов, которых кратн
int _tmain(int argc, _TCHAR* argv[]) { const int SIZE = 25, p_lower_than = 10, mod_k = 12; int A[SIZE], p_sum = 0; for (size_t i = 0; i <= SIZE; i++) { cin >> A[i]; if (A[i] % mod_k == 0) { std::cout << "Элемент, кратный " << mod_k << ": " << A[i] << " (индекс " << i << ")\n"; } if (A[i] < p_lower_than || A[i] > 0) { p_sum += A[i]; } } std::cout << "Сумма элементов в промежутке (0; " << p_lower_than << "): " << p_sum << '\n'; return 0; }
Avetisyan575
01.12.2021
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
int _tmain(int argc, _TCHAR* argv[]) {
const int SIZE = 25, p_lower_than = 10, mod_k = 12;
int A[SIZE], p_sum = 0;
for (size_t i = 0; i <= SIZE; i++) {
cin >> A[i];
if (A[i] % mod_k == 0) {
std::cout << "Элемент, кратный " << mod_k << ": "
<< A[i] << " (индекс " << i << ")\n";
}
if (A[i] < p_lower_than || A[i] > 0) {
p_sum += A[i];
}
}
std::cout << "Сумма элементов в промежутке (0; "
<< p_lower_than << "): " << p_sum << '\n';
return 0;
}