Question

ProgramSumma;usescrt; constn=5; var a: array[1..n] of integer; m,i,s: integer; Автоматическое заполнение случайными числами от1 до20 procedure Input; Procedure Input; begin begin for i:=1 to n do p:=1; q:=20; randomize; begin for i:=1 to n do a[i]:=random(q-p+1)+p; write('a[',i,']='); readln(a[i]); end; end end; procedure Print; begin write('Массив целых чисел А: '); for i:=1 to n do write(' ',a[i]) writeln; writeln; { пропуск строки } end; procedure Sum( m: integer); begin s:=0; for i:=1 to m do s:=s+a[i]; end; Begin ClrScr; Input;{ заполнение массива из 5 элементов } ClrScr; Print; { печать заполненного массива } write('Сколько элементов суммировать: '); readln(m); Sum(m); writeln;{ суммирование m элементов массива } writeln('Сумма ',m,' элементов массива равна: ', s); { суммирование всех элементов массива } Sum(n); writeln; writeln('Сумма всех ',n,' элементов массива равна: ', s); Write ('Среднее арифметическое всех элементов равно ', s/n); Readkey; End.З А Д А Н И Я:1. Набрать и исполнить программу.2. Увеличить число элементов массива.3. Найти сумму 8 элементов массива.4. Осуществить ввод количества элементов массива с клавиатуры.

Answer 1

{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.

Answer 2

Ваша программа представляет собой программу на языке Pascal, которая создает массив целых чисел, заполняет его случайными числами от 1 до 20, печатает массив, находит сумму элементов массива и выводит среднее арифметическое всех элементов.

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

1. Увеличьте число элементов массива: В коде дано, что массив a имеет 5 элементов. Если вы хотите увеличить число элементов массива, вы должны изменить значение константы n на желаемое количество элементов и изменить размер массива a соответственно. Например:

   pascalCopy code
   const n = 10; // Измените значение n на желаемое количество элементов
   var a: array[1..n] of integer;
   

2. Найти сумму 8 элементов массива: Для того чтобы найти сумму 8 элементов массива, вам нужно изменить значение переменной m на 8 перед вызовом процедуры Sum. Ваш код уже имеет такую возможность:

   pascalCopy code
   write('Сколько элементов суммировать: ');
   readln(m); // Введите 8, чтобы найти сумму 8 элементов
   Sum(m);
   writeln('Сумма ', m, ' элементов массива равна: ', s);
   

3. Осуществить ввод количества элементов массива с клавиатуры: Чтобы осуществить ввод количества элементов массива с клавиатуры, вы можете изменить значение n на число, введенное пользователем. Вместо фиксированного значения n, вы можете воспользоваться функцией Readln для ввода значения с клавиатуры. Например:

   pascalCopy code
   write('Введите количество элементов массива: ');
   readln(n); // Ввод количества элементов массива с клавиатуры
   

   Затем вы можете определить размер массива a в соответствии с введенным значением n.

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