var i,s,a,k: integer;
begin
for i:=1 to 8 do
begin
readln (a);
if a>0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln;
writeln ('Среднее арифметическое положительных чисел: ',s/k)
end.
что бы команды были гарантированно выполненны по крайней мере один раз нужно использовать цикл с постусловием Repeat
repeat
<em>операторы</em>
until <em>условие</em>
Это высказывание равносильно такому:
((первая буква согласная) и (последняя буква согласная)) ИЛИ
((первая буква гласная) и (вторая буква гласная)).
Подходят слова 1. ааратат и 5. сравнением