Составьте программу вычисления суммы тех элементов одномерного массива А(N), что расположены перед последним нулевым элементом данного массива.
Задача на языке Паскаль, помогите пожалуйста
Ответы
Ответ дал:
0
const
n=15;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
Write('Массив: ');
k:=0;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]=0 then k:=i;
end;
Writeln;
s:=0;
for i:=1 to k-1 do s:=s+a[i];
Writeln('сумма элементов перед последним нулевым равна ',s)
end.
Пример
Массив: -8 10 6 9 1 -3 2 -5 -6 0 -8 -2 -4 2 -4
сумма элементов перед последним нулевым равна 6
n=15;
var
a:array[1..n] of integer;
i,k,s:integer;
begin
Randomize;
Write('Массив: ');
k:=0;
for i:=1 to n do begin
a[i]:=Random(21)-10;
Write(a[i],' ');
if a[i]=0 then k:=i;
end;
Writeln;
s:=0;
for i:=1 to k-1 do s:=s+a[i];
Writeln('сумма элементов перед последним нулевым равна ',s)
end.
Пример
Массив: -8 10 6 9 1 -3 2 -5 -6 0 -8 -2 -4 2 -4
сумма элементов перед последним нулевым равна 6
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад