program xxx;
const n=30;
var a : array [1..n] of integer; i, k : integer; begin
readln(n);
k: =0; for i: =1 to n do begin
write('a[',i,']=');
readln (a[i]);
if (a[i]> 6) and (a[i]< 10) then k: =k+1; end;
for i: =1 to n do write(a[i], ' ');
writeln(); writeln('количество чисел=',k); readln(); end.
Поделитесь своими знаниями, ответьте на вопрос:
По данным построить структурно-секторную диаграмму распределение странам снг. страны (млн. экю.) ес 49908 сша 7274 япония 2378 прочие 10200 итого
program xxx;
const n=30;
var a : array [1..n] of integer; i, k : integer; begin
readln(n);
k: =0; for i: =1 to n do begin
write('a[',i,']=');
readln (a[i]);
if (a[i]> 6) and (a[i]< 10) then k: =k+1; end;
for i: =1 to n do write(a[i], ' ');
writeln(); writeln('количество чисел=',k); readln(); end.