Question

задать массив b из 12 целых чисел. вычислить сумму положительных элементов массива. нужно на паскале,помогите пожалуйста!!!

Answer 1

массив задаётся случайными числами

Pascal

var

 a:array[1..12] of integer;

 i, s: integer;

begin

 s:=0;

 randomize;

 for i:=1 to 12 do begin

   a[i]:=random(100)-50;

   write(a[i], ' ');

   if a[i]>0 then s:=s+a[i]

 end;

 writeln();

 writeln('Сумма положительных элементов =', s);

end.