-

uses crt;
const k=6;
var a:array[1..k] of real;
i,n:integer; s:real;
begin
clrscr;
s:=0;
for i:=1 to k do
begin
writeln('введите ',i,' элемент ');
readln(a[i]);
if a[i]>0 then s:=s+(a[i]);
end;
for i:=1 to k do
begin
writeln(a[i]:3:3);
end;
writeln('сумма положительных элементов массива = ',s:3:4);
readln;
end.