1)
Program CircleS;
Uses Crt;
const pi=3.14;
var S,r:real;
begin
Clrscr;
write('Введите радиус r:');
readln(r);
S:=pi*(r*r);
writeln('Площадь круга равна:',S);
end.
2)
Program TriangleS;
Uses Crt;
var S,a,h:real;
begin
Clrscr;
write('Введите высоту треугольника h:');
readln(h);
write(' Введите сторону треугольника а:');
readln(a);
S:=0.5*a*h;
writeln('Площадь треугольника равна:',S);
end.
3)
Program TrapezoidS;
Uses Crt;
var S,a,b,h:real;
begin
Clrscr;
write('Введите высоту трапеции h:');
readln(h);
write(' Введите сторону трапеции а:');
readln(a);
write(' Введите сторону трапеции b:');
readln(b);
S:=0.5*(a+b)*h;
writeln('Площадь трапеции равна:',S);
end.
Писал код для другого, но адаптировал под твою задачу)
var
mas: array[1..1000] of integer;
i,a,n,c: integer;
begin
n:=0;
writeln ('Введите количество элементов массива');
readln (c);
randomize;
write ('Массив - ');
for i := 1 to c do
begin
mas[i] := random(c);
write(' ', mas[i], ' ');
end;
writeln;
begin
for i := 1 to c do
if mas[i] > mas[i + 1] then swap(mas[i], mas[i +1]);
end;
for i:= 1 to c do begin
mas[i]:=mas[i+1];
a:=mas[i];
end;
writeln ('Максимальный элемент массива ',mas[i]);
for i:=1 to c do
if a=mas[i] then inc(n);
write ('Количество равных элементов массива ',n);
end.
Sn-ого числа = аn+a1/2 и умножить на n
Где Sn-сума членов арифметической прогрессии
an-n-ое число арифметической прогрессии
a1-первый член арифметической прогрессии
n-номер числа
Если неизвестно n число то можна найти ее за другой формулой
Sn=2a1+d(n-1)/2
Где d-разница арифметической прогрессии