Написать программу на языке Паскаль для решения следующих задач
1. Дан массив, состоящий из 15 вещественных чисел (вводятся с клавиатуры). Найти количество положительных и количество отрицательных элементов массива. Вычислить на сколько больше или меньше положительных элементов.
2.Напишите программу для вычисления выражения Р=а^5*b^5*c^5, используя подпрограмму вычисления пятой степени числа.
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.
А если написать самостоятельно, я бы сделал так:
var
a,b,c:real;
begin
Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний с периметром ',3*a)
else Writeln ('Треугольник не равносторонний')
end.