Результаты N измерений показаний трех приборов записаны в 3 строки. Необходимо найти и записать еще в 3 строки порядковые номера тех результатов измерений, которые больше среднего арифметического значения этих измерений для каждого из трех приборов.

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

setlocale(LC_ALL,"russian");

int num;

cout << "Введите размер массива: ";

cin >> num;

int a[num];

int sum = 0;

cout << "Вводите элементы массива поочерёдно: " << endl;

for(int i = 0; i<num; i++)

{

cin >> a[i];

if(a[i]%5==0 && a[i]%2==0) // находим в массиве числа, кратные 5 и 2

{

 sum = sum + 1;

}

}

cout << "Чётных чисел, кратных пяти и двум: " << sum << endl;

system("pause");

return 0;

}

i,n: integer;

procedure IN1(var a,b:real;n:integer;var y:real);

var

p:real;

i:integer;

begin

y:=1;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y:=p*y;

end;

end;

procedure IN2(var a, b:real; n:integer; var y1:real);

var

p:real;

i:integer;

begin

y1:=0;

for i:=1 to n do

begin

p:=exp(b*ln(a));

y1:=y1+p;

end;

end;

begin

write(' Введите a, b,n');

readln(a,b,n);

IN1(a,b,n,y2);

writeln('p1 ',y2:10:2);

writeln(' Введите c, b,m');

read(a,b,n);

IN2(a,b,n,y3);

writeln('s ',y3:10:2);

write(' Введите e, f,L');

readln(a,b,n);

IN1(a,b,n,y5);

writeln('p2 ',y5:10:2);

y6:=(y2+y3)/y5;

writeln(y6:8:3); end.