1. Заполнить массив из 10 элементов целыми числами в диапазоне от 1 до 10 с помощью...

Question

1. Заполнить массив из 10 элементов целыми числами в диапазоне от 1 до 10 с помощью датчика случайных чисел;2. Вывести на экран элементы массива: а) в столбик, б) в строчку;3. Посчитать среднее арифметическое элементов массива;4. Найти количество элементов массива, значение которых равно 4.На Паскале

Answer 1

Ответ:

var a: array [1..10] of integer;

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

a[i]:=random(10)+1;

//В столбик

for i:=1 to 10 do

writeln(a[i]);

//В строчку

writeln();

for i:=1 to 10 do

write(a[i],' ');

//Среднее арифметическое

s:=0;

for i:=1 to 10 do

s:=s+a[i];

writeln();

writeln('Среднее арифметическое: ',s/10);

// количество элементов массива, значение которых равно 4

s:=0;

for i:=1 to 10 do

if (a[i]=4) then s:=s+1;

writeln('Количество элементов массива,',

' значение которых равно 4: ',s);

end.