Рассмотри клавиатуру и оцени сколько разных знаков -символов тебе приходится использовать при наборе твоих текстов

Восновном это буквы, числа, (цифры), скобки двоеточие (: ), знаки препинания

1const n=30; var a: array [1..n] of integer; i,j,s: integer; begin for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i]> 99)and(a[i]< 1000) then if (a[i] mod 2)< > 0 then begin s: =s+a[i]; j: =j+1; end; if j=0 then writeln('в массиве нет нечётных трехзначных чисел') else writeln('среднее арифметическое нечётных трехзначных чисел: ',s/j); end. 2 const n=40; var a: array [1..n] of integer; i,x,y: integer; s: real; begin for i: =1 to n do readln(a[i]); x: =abs(a[1]); for i: =1 to n do if (a[i]> 0)and((a[i] mod x)=0) then begin y: =y+1; s: =s+a[i]; end; if y=0 then writeln('в массиве нет нечётных трехзначных чисел') else writeln('среднее арифметическое положительных чисел кратных первому элементу: ',s/y); end. 3 const n=30; var a: array [1..n] of integer; i,s,m: integer; begin for i: =1 to n do readln(a[i]); m: =a[1]; for i: =2 to n do if a[i]> m then m: =a[i]; for i: =1 to n do if a[i]=m then s: =s+1; if s=1 then writeln('в массиве только один максимальный элемент') else writeln('число элементов, равных максимальному: ',s-1); end.

#include < iostream> #include < ctime> #include < random> using namespace std; mt19937 gen(time(0)); uniform_int_distribution< > uid(125, 200);   int main() { int a[24]; int max = 0, min = 0; for (int i = 0; i < = 24; ++i) { a[i] = uid(gen); cout < < a[i] < < " "; if (i == 0) { min = max = a[i]; } else { if (a[i] > max) { max = a[i]; } if (a[i] < min) { min = a[i]; } } } cout < < " result: " < < max - min < < endl; return 0; }