составьте программку, которая запрашивает значение частей одномерного числового массива a,

var A:array[1..10] of integer;

i:integer;

s: integer;

begin

writeln('Массив А:');

s:=0;

for i:=1 to 10 do

begin

write('Введите ',i,'-e число ');

readln(A[i]);

if A[i] lt;gt; 0 then s:=s+1;

end;

write('Строка чисел: ');

for i:=1 to 10 do

begin

write(a[i],' ');

end;

writeln();

writeln('Сумма частей, не одинаковых нулю = ',s);

end.

var

a : array [1..10] of real;

s: real;

k : integer;

begin

s := 0;

for k:= 1 to 10 do

Begin

readln (a[k]);

s:= s+ a[k];

end;

for k:= 1 to 10 do writeln(a[k], ' ');

writeln ('сумма=', s);

End.