Кто шарит по паскаль абс. дано масив а[1..n]. знайти кількість елементів, що входять до цього масиву більш як один раз.

Хватит плодить однотипные вопросы. ответ уже был дан в предыдущей теме. #include < iostream> #include < windows.h> int main() {       int v;       double s, t, t1, tmpt,tmpt1,b,tmpt3;       std: : cout < < "v - km\h: ";       std: : cin > > v;       std: : cout < < "\ns - km: ";       std: : cin > > s;       std: : cout < < "\nt - hour: ";       std: : cin > > t;       std: : cout < < "\nt1 - minut: ";       std: : cin > > t1;       tmpt = s / v;       t -= tmpt;       tmpt3 = t - tmpt;       if (tmpt3 < t)       {             std: : cout < < "edem bez ostanovok" < < std: : endl;             system("pause");             exit(1);       }       tmpt1 = (t * 60) / t1;       b = (double)(int)tmpt1;       std: : cout < < "kol ostanovok: " < < b < < std: : endl;       system("pause"); }

Var i,x,y,answer,input,k: integer; begin writeln('*test*'); randomize; answer: =10; k: =0; for i: =1 to answer do   begin   x: =random(9)+1;   y: =random(9)+1;   write(x,' * ',y,' = ');     readln(input);   if input=x*y then   begin   k: =k+1;     writeln('right! ');   end   else writeln('wrong! ',x,' * ',y,' = ',x*y); end; writeln('correct answers - ',k); case answer of 10: writeln('excellent! '); 9,8: writeln('good! '); 6,7: writeln('ok! '); 0..5: writeln('bad! '); end; end. пример: *test* 2 * 4 = 8 right! 7 * 9 = 7 wrong! 7 * 9 = 63 4 * 4 = 16 right! 1 * 2 = 2 right! 4 * 1 = 4 right! 9 * 7 = 63 right! 9 * 8 = 72 right! 3 * 1 = 3 right! 9 * 4 = 36 right! 6 * 4 = 24 right! correct answers - 9 excellent!