Даны два одномерных массива из целых чисел, разной размерности. найти целую часть среднего арифмитического элементов каждого массива и их сумму.
276
446
Ответы на вопрос:
На языке 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 - суммы элементов в первом и втором массивах соответственно.
Var n, m: real; begin readln(n, m); n : = m / n; writeln(n: 5: 2, ' д.'); end.
Популярно: Информатика
-
Space061110.04.2020 07:23
-
Subota29.06.2021 06:28
-
666662827.07.2022 14:44
-
Rapapapapap221201.04.2020 03:30
-
MD20040513.10.2020 20:22
-
НастМал15.07.2021 14:15
-
Torior10.05.2021 14:04
-
Jastick24.06.2021 16:05
-
9яна200516.05.2021 08:48
-
violapi14.05.2022 18:54