Question

Написать программу суммирования элементов массива, состоящего из 20 произвольных чисел до первого отрицательного числа.
Помогите плз срочно.

Answer 1

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.

Answer 2

работает но не читабельно

Answer 3

В Pascal я вводил нормально,при копирование вот так вышло.Я не собираю еще сюда вводить в ручную.

Answer 4

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

Answer 5

lol