Задача:
Петя и Маша собирали ... грибы)). До обеда Петя собрал 65 грибов, Маша - 58, после обеда оба ослабли и Петя собрал 43, Маша - 33.
Сколько грибов собрали дети за день?
Блок схема - через 5 мин))

Задача: найти среднее арифметическое  положительных чисел одномерного массива.
решение 
program al;
const n=15
;var a:array[1..n]of integer;
k,s,i:integer;
sr:real;
begin
writeln('vvedite massiv=');
for i:=1 to n do
readln(a[i]);
s:=0;
k:=0;
sr:=0;
for i:= 1 to n do
if a[i]>0 then begin
k:=k+1;
s:=s+a[i];
end;
sr:=s/k;
writeln('sr=',sr);
readln;
end.
ход действий:
сперва находим количество положительных элементов
затем находим сумму и теперь можем найти и среднее арифметическое..