Var
m: array [1..31] of integer; //заполненный массив
sr: real; //средняя сумма
sum: integer; //сумма всех элементов
i: integer;
a: integer;//значений выше
b: integer;//значений ниже
c: integer;//равных среднему
begin
for i := 1 to 31 do
sum := sum + m[i];
sr := sum / 31;
for i := 1 to 31 do
if m[i] > sr then
a := a + 1
else if m[i] < sr then
b := b + 1
else c := c + 1;
writeln(a);
writeln(b);
writeln(c);
<span>end.</span>
#include <iostream>
using namespace std;
int main() {
int n=10;
int a[n];
int k[n];
bool b=true;
for (int i = 0; i < n; i++) cin >> a[i];
for (int i = 0; i < n; i++) k[i]=0;
for (int i = 0; i < n; i++) k[a[i]-1]=k[a[i]-1]+1;
for (int i = 0; i < n; i++)
if (k[i] != 1) b=false;
if (b) cout << "Yes" << "\n";
else cout << "No" << "\n";
return 0;
}
Пример:
2
5
8
1
4
7
9
6
3
10
<span>Yes</span>
Function func32707155(a As Range) As Integer
Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range
odd_num = Cells(a.Row, a.Column)
even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))
j = 0
For Each r In a
j = j + 1
i = j Mod 2
min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)
Next
func32707155 = min_max(1) + min_max(0)
End Function
Excel VBA
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
Могу примерный план , может , что то пригодится.
<span>1. Женя купила семь баранок. 2. Собака съела все баранки. 3. Старушка дала Жене цветик-семицветик. 4. Женя загадала желание и оказалась дома. 5. Она оторвала второй лепесток. 6. Вазочка стала целой. 7. Женя пошла во двор. 8. Она загадала желание и очутилась на Северном полюсе. 9. Женя оторвала четвертый лепесток и вернулась во двор. 10. Она загадала, чтобы появилось много игрушек. 11. Куклы, машинки, мячики заполнили все улицы. 12. Женя оторвала шестой лепесток. 13. Игрушки пропали. 14. Женя увидела больного мальчика на скамейке. 15. Женя загадала желание. 16. Мальчик выздоровел.</span>