Набрать программу нахождения суммы всех элементов массива и подсчитать количество...

Question

Набрать программу нахождения суммы всех элементов массива и подсчитать количество элементов массива

Comments

подсчитать количество элементов массива - что имеется в виду?

---

Я так и понял, но динамические массивы уже сильно зависят от самого языка. Так что вопрос неполный

Answer 1

{
Набрать программу нахождения суммы всех элементов
массива и подсчитать количество элементов массива
}

CONST max=12;
VAR
i:byte;
sum:integer;
vt:array [1..max] of shortint;

BEGIN
randomize;
writeln('Начальный массив');
for i:=1 to max do begin
vt[i]:=random(-32,127);
write(vt[i]:6);
end;
writeln();

for i:=1 to max do
sum:=sum+vt[i];
writeln('Сумма элементов: ', sum);
END.