Написать программу суммирования элементов массива, состоящего из 20 произвольных чисел до первого отрицательного числа. Помогите плз срочно.
Написать программу суммирования элементов массива, состоящего из 20 произвольных чисел до первого отрицательного числа.
Помогите плз срочно.
Ответ(ы) на вопрос:
program symm;uses crt;
const N=20;
var masiv:array [1..20] of integer; i:integer; summa,x:integer;begin for i:= 1 to N do begin masiv[i]:=Random(25)-10; Writeln(masiv[i]) end; for i:= 1 to N do if (masiv[i]>0) then begin x:=masiv[i]; summa:=summa+x; end else begin Writeln(); Writeln('Сумма элементов массива до первого отрицательного числа=',summa); Halt end;
end.
const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
Randomize;
for i:= 1 to n do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
writeln;
s:=0;
i:=1;
while (i<=n)and(a[i]>0) do
begin s:=s+a[i]; i:=i+1; end;
Writeln('Сумма элементов массива до первого отрицательного числа = ',s);
end.
Пример:
7 4 -5 6 -3 0 4 4 4 3 0 0 5 6 9 6 3 -9 -3 6
Сумма элементов массива до первого отрицательного числа = 11
Не нашли ответ?
Похожие вопросы