Question

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

Answer 1

Решение представлено во вложении.

Язык: Pascal