1. - г
2. - а
3. - б
4. - а б г
5. - а
6. - б
7. - в
// находим максимальное значение
int max = arr[0];
for(int i = 1; i < 10; i++) if (arr[i] > max) max = arr[i];
// находим сколько элементов массива имеют максимальное значение
int num = 0;
for(int i = 0; i < 10; i++) if (arr[i] == max) num++;
Var a,b,c:integer;
begin
writeln('Вычесление периметра треугольника.');
writeln('Введите значение стороны a.');
readln(a);
writeln('Хорошо. Вы ввели значение для a: ',a);
writeln('Введите значение стороны b.');
readln(b);
writeln('Хорошо. Вы ввели значение для b: ',b);
writeln('Введите значение стороны c.');
readln(c);
writeln('Хорошо. Вы ввели значение для c: ',c);
if a<0 then
writeln('Данный треугольник не существует')
else
if b<0 then
writeln('Данный треугольник не существует')
else
if c<0 then
writeln('Данный треугольник не существует')
else
if a+b<c then
writeln('Данный треугольник не существует')
else
if a+c<b then
writeln('Данный треугольник не существует')
else
if b+c<a then
writeln('Данный треугольник не существует')
else
writeln('Периметр треугольника: ',a+b+c);
end.
Незн
оакшгпролнпшарррррпгп