Илья
4 год назад
набрать программу нахождениясуммы всех элементов массива и подсчитать количество элементов массива
ОТВЕТЫ
Пенко
Oct 24, 2020
{
Набрать программу нахождения суммы всех элементов
массива и подсчитать количество элементов массива
}
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.
506
Смежные вопросы: