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>
Sub Zadanie()
n = CInt(InputBox("n ="))
y = 1
for i = 1 to n
y = y * (2 * i - 1)
next
MsgBox y
End Sub
1 пример.
Program zadacha; здесь путем ввода в программе будь-то
вручную через строку команды read(a);
Var a:Integer;
Begin
a:=155;
End.
2 пример. А здесь объявить константой.
Program zadacha2;
Const a=155;
Begin
Write(a);
End.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(3,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Искомое произведение ',
a.ElementsWithIndexes.Where(t->t[2].IsOdd).Select(t->t[0]).
Aggregate(BigInteger(1),(x,y)->x*y));
end.
<u>Пример</u>
*** Исходный массив ***
60 -23 10 -18 -97 -90 -56 5
32 51 -2 3 63 -76 17 85
-41 -64 9 59 84 -66 69 28
--------------------------------
Искомое произведение 1284904222221312000