program z1;
const n=5;
var i,s: integer;
a:array[1..n] of integer;
begin
s := 0;
write('Массив : ');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:3);
s:=s+a[i]
end;
writeln;
writeln('Сумма значений элементов целочисленного массива ',s);
writeln('Среднее арифметическое значений элементов целочисленного массива ',s/n)
end.
Объяснение:
n - размерность массива
s - сумма значений элементов
В цикле с параметром:
1) задаём значение элемента массива
2) выводим элемент на экран
3) считаем сумму
Выводим на экран сумму
Выводим на экран среднее арифметическое (делим сумму на количество элементов массива)
Поделитесь своими знаниями, ответьте на вопрос:
Из всех туристов 16 побывали в америке, 10 в германии, 6 в . в и германии - пятеро, в и америке - 6, во всех трех странах - 5 сотрудников. сколько человек посетили и германию, и америку, е сли всего в фирме работают 19 человек, и каждый из них побывал хотя бы в одной из названных стран.
в Америке 6человека