Написать программу в паскале дан целочисленный массив. он заполняется при запуске программы: сначала запросить число элементов (n от 1 до 40), затем - элементы – целые числа в интервале от -500 до 500. a. количество чисел, оканчивающихся на 3; b. найти среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент). гарантируется, что первый элемент массива положительный. c. наибольший отрицательный элемент, который делится на 3.

Var   a: array[1..40] of integer;   i,n,k3,k,s,a3: integer; begin   write('n='); read(n);   for i: =1 to n do read(a[i]);   k3: =0; {a}   s: =0; k: =0; {b}   a3: =-1000; {c}   for i: =1 to n do begin       if a[i] mod 10=3 then inc(k); {a}       if (a[i]> 0) and (a[i] mod a[1]=0) then begin {b}           s: =s+a[i]; inc(k)           end;       if (a[i]< 0) and (a[i]> a3) and (a[i] mod 3=0) then a3: =a[i]; {c}       end;   writeln('кол-во чисел. оканчивающихся на 3: ',k3); {a}   writeln('среднее арифметическое по условию: ',s/k: 0: 3); {b}   if a3< > 1000 then writeln('наибольший отрицательный, кратный 3: ',a3) {c}   else writeln('нет отрицательных элементов, кратных 3') end. для решения конкретного пункта выбирать только операторы, помеченные этим пунктом, например, {a} для а)

Если брать именно Вашу запись, то будет ошибка, Вы забыли взять "кинорежиссёр" в кавычки.

Будем рассматривать запись, где всё нормально функционирует.

Тогда будет выведено 5 символов.

ответ: Кинор