Вопрос Решить в паскале

[zloynark]

Написать программу, которая генерирует три последовательности из десяти

случайных чисел в диапазоне от 1 до 10, выводит каждую последовательность на экран и вычисляет среднее арифметическое каждой последовательности.

 

[валентин]

С++С++СИС++

 

[дмитрий1]

program CalculateAverages;

var
i, j, num, sum: integer;
average: real;

begin
Randomize; // Инициализация генератора случайных чисел

for j := 1 to 3 do // Три последовательности
begin
writeln('Последовательность ', j, ':'
sum := 0;

// Генерация и вывод 10 чисел
for i := 1 to 10 do
begin
num := Random(10) + 1; // Числа от 1 до 10
write(num, ' '
sum := sum + num;
end;

// Вычисление среднего
average := sum / 10;
writeln;
writeln('Среднее арифметическое: ', average:0:2);
writeln;
end;
end.

 

[OLEG22]

С синтаксисом у меня беда, так что вы уж напильником сами доработайте. var a,i,j:byte;
var b:real;
begin
for i:=1 to 3
begin
b:=0;
for j:=1 to 10
begin
a:=random(10); //Генерация псевдослучайных чисел
b:=b+a; //Суммирование всех чисел в очереди
write(a, ", " //Вывод последовательности чисел в строчку
end
b:=b/10;
writeln("Average of sequence #", j, "=", b);
end
end.

 

[краснок]

Паскаль ещё живой язык?