задан одномерный массив..

[Avvakymova]

задан одномерный массив из 10 элементов.составить программу,подсчитывающую сумму положительных элементов массива.значения элементов массива задаите самостоятельно,используя процедуру ввода данных с клавиатуры.для ввода данных и обработки массива используйте оператор цикла for.выведите на экран исходный массив и расчеты

[Pein95]

хех) задание елементарное)
вот часть кода

for i:=1 to n do
if a[i]>0 then s:=s+a[i];

остальное все просто...
если найди меня в скайпе или вконтакте обясню как и что надо сделать

[Мирзали]

Вот полное решение

program m1;
uses crt;
const n=10;
var x:array [1..n] of integer;
i,s:integer;
begin
clrscr;
writeln('vvedite 10 elementov massiva x');
for i:=1 to n do begin read(x[i]);
for x[i]>0 then s:=s+x[i];
end;
for i:=1 to n do write('massiv iz 10 elementov',x[i],' ');
writeln;
write('summa polojitelnih elementov',s:2);
readln;
end.