Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива

vara: array [1..10] of word; i: word; sa: real; beginrandomize; for i: =1 to 10 dobegina[i]: =random(10)+1; write(a[i]); if i< > 10 then write(', '); end; writeln; sa: =0; for i: =1 to 10 dosa: =sa+a[i]; sa: =sa/10; writeln('sredneearifmitichiskoe: ',sa: 0: 3); write('dly vyhoda nagmite enter'); readln; end.

общее понятие     единичное понятие

композитор           чайковский

художник               репин

поэт                         пушкин

озеро                     байкал

горы                       карпаты

город                     париж

философ               сократ

полководец         суворов

учёный                   ньютон

река                       лена

город                     чита

 

var

  a, b : real;

begin

  read (a, b);

  write (trunc (a * b));

end.

 

var

  a : integer;

begin

  read (a);

  write (frac (a / 10));

end.

 

г)

var

  a, b : real;

begin

  read (a, b);

  write (round (a + b));

end.

 

d)

var

  a, b : integer;

begin

  read (a, b);

  write (a div b);

end.

 

e)

var

  a : integer;

begin

  read (a);

  write (a div 1000);

end.

 

ж)

var

  a : longint;

begin

  read (a);

  write (a div 24 + 1);

end.

 

з)

var

  k : integer;

begin

  read (k);

  write (k div 7 + 1);

end.

 

и)

var

  k : integer;

begin

  read (k);

  write (k div 60, ': ', k mod 60);

end.