Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if a[i] < 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.
Как то так получилось:
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>404 Error</title>
<link rel="stylesheet" href="css/style.css">
</head>
<body>
<div>
<p>Что бы создать..</p>
<ol>
<li>Выучить HTML</li>
<li>CSS</li>
<li>php</li>
</ol>
</div>
<div>
<p>Text</p>
<ol type="I">
<li>Text</li>
<li>Text</li>
<li>Text</li>
<li>Text</li>
</ol>
</div>
<div>
<p>Text</p>
<ol type="a">
<li>Text</li>
<li>Text</li>
<li>Text</li>
<li>Text</li>
</ol>
</div>
<div>
<p>Text</p>
<ol start="2">
<li>Text</li>
<li>Text</li>
<li>Text</li>
<li>Text</li>
</ol>
</div>
</body>
</html>
Если будут вопросы - пиши, всё объясню.
Const
n = 5;//Емкость памяти типа "кольцо"
type
Ring = array[1..n] of integer;
var
ir: integer;
R: Ring;
procedure Add2Ring(a: integer);
// Добавляет в кольцо очередной элемент
begin
if ir = n then ir := 1
else ir := ir + 1;
R[ir] := a
end;
var
i, S, d: integer;
P: longint;
begin
S := 0;
ir:=0;
writeln('Вводите числа, 0 - конец ввода');
for i := 1 to n do
begin
readln(d);
S := S + d;
Add2Ring(d)
end;
repeat
readln(d);
if d <> 0 then Add2Ring(d);
until d = 0;
P := 1;
for i := 1 to n do P := P * R[i];
writeln('Сумма первых ', n, ' чисел: ', S, ', произведение последних: ', P)
end.