Question

1.В среде программирования ABCPascal выполни №78из Рт. Заполни таблицу. а) program a78 var i, s: integer; sr: real; const a: array [1..6] of integer = (1,7,3,6,0,10);. begin s:=0;. for i:=1 to 6 do s:=s+a[i];. sr:=s/6;. writeln('sr=', sr). end. 2.Измени программу так, чтобы данные вводились случайным образом в интервале от 0 до 50 , а затем выводились на печать в один столбец с комментариями. 3. Протестируйте программу, исправь ошибки. 4. Запиши в тетрадь для записей исправленные варианты программы. 5. Запиши, что выводит программа на экран и в какой форме

Answer 1

Исходная программа (без ошибок):

program a78;

var i, s: integer;

sr: real;

const a: array [1..6] of integer = (1,7,3,6,0,10);

begin

s:=0;

for i:=1 to 6 do s:=s+a[i];

sr:=s/6;

writeln('sr=', sr)

end.

Изменённая программа:

program a78;

var i, s: integer;

sr: real;

a: array [1..6] of integer;

begin

s:=0;

for i:=1 to 6 do

begin

a[i]:=random(51);

writeln (i,' элемент = ',a[i]);

s:=s+a[i]

end;

sr:=s/6;

writeln('sr = ', sr:0:3)

end.

Answer 2

Прежде всего, стоит отметить, что ABCPascal — это язык программирования, который, возможно, используется в вашем обучении. Однако, насколько мне известно, ABCPascal как такового языка программирования не существует. Вероятно, вам нужно использовать стандартный Pascal или какой-то другой диалект Pascal.

В предложенной вами программе выполняется следующее:

1. Объявляются переменные `i`, `s`, `sr`. 2. Задается константа `a` — массив из шести целых чисел. 3. Выполняется цикл, в котором происходит суммирование элементов массива `a` и вычисление среднего значения. 4. Результат выводится на экран.

Вам предлагается модифицировать программу следующим образом:

program a78;

var
  i, s: integer;
  sr: real;
  a: array[1..6] of integer;

begin
  // Заполняем массив случайными числами от 0 до 50
  for i := 1 to 6 do
    a[i] := Random(51);

// Выводим данные на печать в один столбец с комментариями
  writeln('Элементы массива a:');
  for i := 1 to 6 do
    writeln('a[', i, '] = ', a[i]);

// Вычисляем сумму и среднее значение
  s := 0;
  for i := 1 to 6 do
    s := s + a[i];
  sr := s / 6;

// Выводим результат на экран
  writeln('Сумма элементов массива: ', s);
  writeln('Среднее значение: ', sr);
end.

Теперь программа генерирует случайные числа для массива `a` в диапазоне от 0 до 50, выводит элементы массива в один столбец с комментариями и затем выводит сумму и среднее значение.

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

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