PROGRAM ThreeSequences(INPUT, OUTPUT);
VAR
Number: ARRAY[1 .. 3, 1 .. 10] OF INTEGER;
ArithmeticAverage: ARRAY[1 .. 3] OF INTEGER;
I, J: INTEGER;
BEGIN {ThreeSequences}
Randomize;
{Генерирует 3 последовательности по 10 случайных чисел}
FOR I := 1 TO 3
DO
FOR J := 1 TO 10
DO
Number[I][J] := Random(10) + 1;
{Выводит последовательности и считает среднее арифметическое}
FOR I := 1 TO 3
DO
BEGIN
WRITE('Sequences: ');
ArithmeticAverage[I] := 0;
FOR J := 1 TO 10
DO
BEGIN
WRITE(Number[I][J]:3);
{Складывает все числа последовательности}
ArithmeticAverage[I] := ArithmeticAverage[I] + Number[I][J];
END;
WRITELN;
{Делит на количество чисел последовательности}
ArithmeticAverage[I] := ArithmeticAverage[I] DIV J;
WRITELN('ArithmeticAverage: ', ArithmeticAverage[I]);
END;
END. {ThreeSequences}
Program WestDog;
uses crt;
const n=10;
var
a:array [1..10] of integer;
i,j,temp:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
writeln('Элементы массива:');
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(11)-5;
write (a[i]:5);
end;
{сортировка массива методом прямого обмена}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
writeln();
writeln('Результат:');
for i:=1 to n do
write(a[i]:5);
end.
