<span>"проги" пишет "школота". Вот пусть она и помогает. А нормальные люди пишут программы</span>
Есть переменная, равная 0 и есть цикл в котором сравнивается поочередно значения из массива и эта переменная, если значение переменной меньше, то переменная принимает значение данного элемента массива.
В итоге переменная содержит самое большое значение из массива.
Ответ:
program Calc;
var
i, n, m: Integer;
s: Double;
begin
Write ('Количество членов ряда = ');
ReadLn (m);
s := 0.5;
n := 1;
for i := 2 to m do begin
s := s + n / (i * 2);
n := -n;
end;
WriteLn ('S = ', s :20 :20);
ReadLn;
end.
Var a,b:real;
begin;
readln(a);
readln(b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
end.