Даны два одномерных массива из целых чисел, разной размерности. Найти целую часть среднего арифмитического элементов каждого массива и их сумму.
10-11 класс
|
На языке Pascal.
program average_elems;
var a, b : array[1..1000] of integer;
n, i, m, sum1, sum2 : integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
sum1 := sum1 + a[i];
end;
read(m);
for i:=1 to m do begin
read(b[i]);
sum2 := sum2 + b[i];
end;
write(sum1 div n, ' ', sum2 div m, ' ', sum1 div n + sum2 div m);
end.
a, b - первый и второй массивы. n, m - кол-во элементов в массивах a и b соответственно, sum1, sum2 - суммы элементов в первом и втором массивах соответственно.
Другие вопросы из категории
объем памяти (в байтах) потребуется для хранения страницы русского текста из 10
строк по 50 символов в строке.
1. При подключении к Интернету модем обеспечивает
скорость передачи данных, равную 28
Читайте также
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.
массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию Даны три одномерных массива. Упорядочить их по возрастанию элементов. Составить программу проверки, сколько раз повторяется заданное число в каждом массиве. Результаты сохранить в одномерном массиве и элементы массива отсортировать по возрастанию
организовать путем ввода с клавиатуры. В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел.
среднее арифметическое элементов массива.