ОБРАБОТКА ОДНОМЕРНЫХ ЧИСЛОВЫХ МАССИВОВ.
#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;
beginbegin
for i:=1 to n dop:=1; q:=20; randomize;
beginfor 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. Осуществить ввод количества элементов массива с клавиатуры.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 33
#2. ОБРАБОТКА ОДНОМЕРНЫХ ЧИСЛОВЫХ МАССИВОВ
