Запишите программу формирования и вывода массива из 20 случайных чисел (из диапазона от 0 да 1000) и вычисления их среднего значения

Var m: array[1..100] of integer; i,s,n: longint; a: real; begin randomize; writeln('массив: '); for i: =1 to 20 do   begin   m[i]: =random(1001); write(m[i],' ');   s: =s+m[i];   end; a: =s/20; writeln('среднее арифметическое: ',a: 2: 3); end.

решение, который дал другой пользователь, слишком сложное. я могу предложить альтернативный вариант, который будет гораздо проще в понимании.

var a,s,s1: integer;

begin

  write('введите число -> ');

  readln(a);

  s1: =1;

  while a> 0 do

  begin

    s: =s+(a mod 10);

    s1: =s1*(a mod 10);

    a: =a div 10;

  end;

  writeln('сумма цифр числа равна -> ',s);

  writeln('произведение цифр числа равно -> ',s1);

end.

Var   n: integer; begin   write('введите номер дня недели (1-7) -> ');   readln(n);   case n of       1: writeln('это понедельник');       2: writeln('это втоник');       3: writeln('это среда');       4: writeln('это четверг');       5: writeln('это пятница');       6: writeln('это суббота');       7: writeln('это воскресенье');   else writeln( 'это неверный ввод');   end end. тестовое решение: введите номер дня недели (1-7) -> 5 это пятница