ОБРАБОТКА ОДНОМЕРНЫХ ЧИСЛОВЫХ МАССИВОВ
№1. СУММИРОВАНИЕ ЭЛЕМЕНТОВ МАССИВА
ПОСТАНОВКА ЗАДАЧИ: Найти сумму элементов одномерного массива.
Найти среднее арифметическое.
Program Summa;
uses crt;
const n=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;
begin q:=20;
write('a[',i,']='); randomize;
readln(a[i]); for i:=1 to n do
end; a[i]:=random(q-p+1)+p;
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); { суммирование m элементов массива}
writeln;
writeln('Сумма ',m,' элементов массива равна: ', s); { суммирование всех элементов массива }
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Write ('Среднее арифметическое всех элементов равно ', s/n);
Readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Увеличить число элементов массива.
3. Найти сумму 8 элементов массива.
4. Осуществить ввод количества элементов массива с клавиатуры.