1. Вычислить сумму первых N слагаемых 12+22-32+42+52-62+…(каждое третье слагаемое берется со знаком «минус»).1. Из N целых чисел найти минимальное среди положительных и максимальное среди отрицательных значений.
1. Вычислить
сумму первых N
слагаемых 12+22-32+42+52-62+…(каждое
третье слагаемое берется со знаком «минус»).
1. Из N
целых чисел найти минимальное среди положительных и максимальное среди
отрицательных значений.
Гость
Ответ(ы) на вопрос:
Гость1)
var
b, c, n: integer;
begin
readln(n);
c := 12;
for b := 2 to n do
if (b mod 2 = 0) then
c := c + (b * 10 + 2)
else
c := c - (b * 10 + 2);
writeln(c);
end.
2)
var
max, min, n, i, t: integer;
begin
readln(n);
if (n = 0) then exit;
readln(t);
min := 65536;
max := -65536;
for i := 2 to n do
begin
readln(t);
if ((t > 0) and (t < min)) then
min := t;
if ((t < 0) and (t > max)) then
max := t;
end;
writeln(max, ' ', min);
end.
Не нашли ответ?
Похожие вопросы