Найти произведение чисел от 8 до 15. 2. Найти сумму n+(n+1)^2+(n+2)^2 = (n+3)^2...

Question

Найти произведение чисел от 8 до 15. 2. Найти сумму n+(n+1)^2+(n+2)^2 = (n+3)^2 +...(2n)^2.

Answer 1

program qq;

var

Mass: array[1..100] of integer;

i: integer;

n: integer;

sum: integer;

begin  

Writeln(‘Введите число элементов массива не более 100’);

readln (n);

for i:=1 to n do begin // заполнение  

Writeln(‘Введите ’,I,’ элемент массива’);

readln(Mass[i]);

end;

sum := 0; // подсчет суммы

for i:=1 to N do  

begin

Writeln(‘Исходный массив’);

write (Mass[i]:4);

if Mass[i] > 0 then

sum := sum + Mass[i];

end;

writeln;

writeln(‘Сумма положительных элементов массива= ’sum:5);

end.