Из n случайных чисел в интервале [10; 200) найти количество и сумму нечетных чисел.…

program name; var i,n,x,summa,count: integer; beginWriteln ('Vvedite n: '); readln (n); //кол во чиселsumma: =0; count: =0; Randomize; for i: =1 to n do//цикл выполняется n разbeginx: =random (189)+10; //получаем слуайное число из интервалаif (x mod 2=1) then//проверяем число на нечетность, если да то считаемbeginsumma: =summa+x; count: =count+1; writeln ('ne chetnoe'); //выводи число четное или нет (можно убрать строку) end; writeln (x); //пишем само число (можно убрать строку) end; writeln ('Kolvo: ', count,' summa: ', summa); //выводим сумму и количествоreadln (); end.