ОЧЕНЬ Даны два массива A и B, состоящих из одинакового числа элементов. Найти среднее арифметическое элементов каждого и сравнить эти значения. Заполнение массива выберите по своему усмотрению. РЕШЕНИЕ ТОЛЬКО НА С++, ПАСКАЛЬ НЕ ПИСАТЬ

#include <iostream>

#include <time.h>

using namespace std;

int main(){

srand(time(0));

int n = 0;

cout << "Введите количество элементов массивов: ";

cin >> n;

int A[n];

int B[n];

double sumA = 0;

double sumB = 0;

double srA = 0;

double srB = 0;

cout << "Первый массив: { ";

for(int i = 0; i<n; i++){

 A[i] = rand()%10;

 cout << A[i] << " ";

 sumA+=A[i];

}

cout << "}";

cout << "\n\n";

cout << "Второй массив: { ";

for(int i = 0; i<n; i++){

 B[i] = rand()%10;

 cout << B[i] << " ";

 sumB+=B[i];

}

cout << "}";

srA = sumA/n;

srB = sumB/n;

cout << "\n\n";

cout << "Среднее арифметическое первого массива: " << srA << endl;

cout << "Среднее арифметическое второго массива: " << srB << endl;

if(srA>srB){

 cout << "Среднее арифметическое первого массива больше за среднее арифметическое второго массива";

}else{

 cout << "Среднее арифметическое второго массива больше за среднее арифметическое первого массива";

}

cout << endl;

return 0;

}

А1. Точечный элемент экрана дисплея называется:  3) пикселем

А2. Свойство алгоритма, заключающееся в том, что один и тот же алгоритм можно использовать с различными исходными данными, называется:  2) массовость

А3. Какая алгоритмическая конструкция называется циклом:  3) одни и те же операции выполняются многократно;

А4. Какой вид графики искажает изображение при масштабировании?  2) растровая графика

А5. Векторное графическое изображение формируется из  3) графических примитивов

А6. В каталоге Май хранился файл Сценарий.dос. Позже этот каталог перенесли в каталог Готово, расположенный в корне диска C. Укажите полное имя этого файла после перемещения.  2) С:\Готово\Сценарий.dос

Program proga;
Var  
p: text;   
  i, n : byte;     
 s,min,m: string;     
 Begin                         
 write('Введите имя файла   ');  {Например: C:.txt}                         
 read(m);
Assign(p,m);      
  reset(p);
    read(p,s);
 min:=s;   
 n:=100;   
 for i:=1 to n do   
 begin     
readln(p,s);                                      
while not eof(p) do  
 {нахождение минимальной строки}       
   begin         
 readln(p,s);       
   if length(s) <= length(min) then        
  min:=s;         
 end;          
 end;
close(p);   
 write('самая короткая строка: ',min);
End.