Question

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

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.