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 f...

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. Осуществить ввод количества элементов массива с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость
{ правильная программа, кол-во элементов вводится с клавиатуры } 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы