Задано n целых чисел. вам необходимо найти среднее арифметическое этих чисел. гарантируется, что среднее арифметическое всегда целое.

Var count, a, b, n, i: integer; begin       writeln('n = ');       readln(n);       for i : = 1 to n do       begin           write(i, ': ');           readln(a);           b : = b + a;           count : = count + 1;       end;       writeln('> ', b/a); end.вот, прошу =)

#include < stdio.h> int main() {   int a[20], b[30], c[20], lenc = 0;   for(int i = 0; i < 20; i++) scanf("%d", & a[i]);   for(int i = 0; i < 30; i++) scanf("%d", & b[i]);   for(int i = 0; i < 30; i++)     for(int j = 0; j < 20; j++)       if(b[i] == a[j]) {         c[i] = b[i];         lenc++;         for(int k = j; k < 20; k++)           if(a[k] == b[i]) a[k] = 0;         b[i] = 0;         break;       }   for(int i = 0; i < lenc; i++) printf("%d ", c[i]); }

1. введите n.

2. цикл for от 1 до n будем вводить 'элементы массива x[i]/

3. в цыкле от 1 до n бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так

write('введите n'); readln(n);

for i: =1 to n do begin write('введите ',i,' элемент массива');

                                                              readln (x[i]);

                                            end;

sum: =0;

for i: =1 t0 n do begin

                                                    write(' ',x[i]);

                                                    sum: =sum+x[i];

                                            end;

write('а сумма всех элементов = ',sum);