набрать программу нахождения суммы всех элементов массива и подсчитать количество элементов массива
Ответы
Ответ дал:
0
{
Набрать программу нахождения суммы всех элементов
массива и подсчитать количество элементов массива
}
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.
Набрать программу нахождения суммы всех элементов
массива и подсчитать количество элементов массива
}
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад