Я уже устаю писать фразу: " уточняйте на каком языке программирования нужно написать", если же Вы этого не делаете, то Вам будет хуже, потому что напишут не на том, на котором Вам нужно, а на том котором удобно человеку. Вот к примеру мне удобно написать на С++, по этому напишу на нём. Алгоритм везде будет тот же.
int a,b,c;
double sr;
cin << a;
cin << b;
cin << c;
sr = (a+b+c)/3
if(a>sr){
cout << "Первое число больше за среднее арифметическое";
}
if(b>sr){
cout << "Второе число больше за среднее арифметическое";
}
if(c>sr){
cout << "Третье число больше за среднее арифметическое";
}
===== PascalABC.NET =====
begin
// 1
var a := MatrRandom(5, 5, -99, 99);
a.Println.ElementsByRow.Where(k -> k.IsEven).Sum.Println;
Writeln; // только чтобы отделить задачу
// 2
a := MatrRandom(10, 10, -99, 99);
a.Println.ElementsByRow.Where(k -> k mod 3 = 0).Count.Println;
Writeln; // только чтобы отделить задачу
// 3
a := MatrRandom(7, 4, -99, 99);
a.Println.ElementsByRow.Average.Print
end.
Примечание:
Оформление отдельной задачей делать так:
begin
var a := MatrRandom(7, 4, -99, 99); // создание и заполнение
a.Println.ElementsByRow.Average.Print // решение и вывод
end.
![1. Дан двумерный массив A[5;5] Найти сумму четных элементов массива 2. Дан двумерный массив A[10;10]](/tpl/images/1200/5710/c42ff.jpg)
begin
var s:='ЖЕЛЕЗНОДОРОЖНИК';
Writeln(s[8],s[9],s[6],s[7],s[10]);
Writeln(s[15],s[7],s[3],s[4],s[6],s[7]);
Writeln(s[15],s[10],s[7],s[15],s[7],s[8],s[14],s[3])
end.