1. -зрение-глаза
2.-слух- уши
3.вкус-язык
4.обоняние- нос (не точно)
надеюсь помогла
Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>
Каким следом? если в пейнте, то shift
…И снилось мне, что мы, как в сказке,
Шли вдоль пустынных берегов
Над диким синим лукоморьем,
В глухом бору, среди песков.
Был летний светозарный полдень,
Был жаркий день, и озарен
Веет, лес был солнцем, и от солнца
Веселым блеском напоен.
Узорами ложились тени
На теплый розовый песок,
И сипни небосклон над бором
Был чист и радостно-высок.
Играл зеркальный отблеск моря
В вершинах сосен, и текла
Вдоль по коре, сухой и жесткой,
Смола, прозрачнее стекла...
Мне снилось северное море,
Лесов пустынные края...
Мне снилась даль, мне снилась сказка –
<span>Мне снилась молодость моя.</span>