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 Mysmka;
uses crt;
const n=15;
var
a:array[1..n] of real;
i:integer;
z,sum40:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите загадочное число Z ');
readln(z);
writeln('Элементы массива:');
{создание и вывод массива}
sum40:=0;
for i:=1 to n do
begin
a[i]:=i*z;
write (a[i]:7:2);
if a[i]>40 then sum40:=sum40+a[i];
end;
writeln();
writeln('Сумма чисел, больших 40: ',sum40:7:2);
end.