Информатика! допишите программу k:=0;
for i:=1 to n do
if a[i]>50 then k:=k+1;
write ('k=', k);

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку