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.

Answer 2

Я могу помочь вам с написанием кода на Паскале. Вот возможный вариант решения вашей задачи:

program array_task;
var
  a: array[1..10] of integer; // объявляем массив из 10 целых чисел
  i, sum, count: integer; // объявляем переменные для индекса, суммы, количества
  avg: real; // объявляем переменную для среднего арифметического
begin
  randomize; // инициализируем датчик случайных чисел
  sum := 0; // обнуляем сумму
  count := 0; // обнуляем количество
  for i := 1 to 10 do // цикл по элементам массива
  begin
    a[i] := random(10) + 1; // заполняем массив случайными числами от 1 до 10
    sum := sum + a[i]; // добавляем элемент к сумме
    if a[i] = 4 then // если элемент равен 4
      count := count + 1; // увеличиваем количество на 1
    writeln(a[i]); // выводим элемент в столбик
  end;
  writeln; // переходим на новую строку
  for i := 1 to 10 do // цикл по элементам массива
    write(a[i], ' '); // выводим элемент в строчку с пробелом
  writeln; // переходим на новую строку
  avg := sum / 10; // вычисляем среднее арифметическое
  writeln('Среднее арифметическое: ', avg:0:2); // выводим среднее арифметическое с двумя знаками после запятой
  writeln('Количество элементов, равных 4: ', count); // выводим количество элементов, равных 4
end.

Надеюсь, это поможет вам. Если у вас есть еще вопросы, я рад помочь.