Написать программу, которая генерирует 10 случайных чисел в диапозоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое
Написать программу, которая генерирует 10 случайных чисел в диапозоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое
Гость
Ответ(ы) на вопрос:
Гость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}
Гостьuses crt; var a,k,s:shortint; sr:real; begin clrscr; randomize; repeat a:=random(10)+1; write (a:3); k:=k+1; s:=s+a; until k=10; sr:=s/k; writeln; writeln ('Srednee: ',sr:0:4); readln; end.
Не нашли ответ?
Похожие вопросы