// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 function FS(a,b:real):=0.5*a*b; begin var a,b:real; Write('Катеты первого треугольника: '); Read(a,b); var S1:=FS(a,b); Write('Катеты второго треугольника: '); Read(a,b); var S2:=FS(a,b); if S1>S2 then Writeln('Площадь первого треугольника больше') else if S1<S2 then Writeln('Площадь второго треугольника больше') else Writeln('Площади треугольников равны') end.
Тестовое решение Катеты первого треугольника: 4.18 6 Катеты второго треугольника: 5.4 3.9 Площадь первого треугольника больше
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше
#include <iostream>
using namespace std;
int main() {
int a[100], n;
cin >> n;
for (int i = 0; i < n; i++) {
cin >> a[i];
}
//сюда код свой
int min_elem_ind = 0;
int min_elem_val = a[0];
for (int i = 1; i < n; i++) {
if (min_elem_val > a[i]) {
min_elem_val = a[i];
min_elem_ind = i;
}
}
int max_elem_ind = 0;
int max_elem_val = a[0];
for (int i = 1; i < n; i++) {
if (max_elem_val < a[i]) {
max_elem_val = a[i];
max_elem_ind = i;
}
}
if (max_elem_ind > min_elem_ind) {
cout << "Min" << endl;
}
if (max_elem_ind < min_elem_ind) {
cout << "Max" << endl;
}
else {
cout << "Error" << endl;
}
return 0;
}