Задание:
Даны два одномерных массива. Написать функцию, которая определит, среднее арифметическое значение какого массивабольше
Решение:
Function srarifm; var mas1,mas2: array[1… 100000] of longint; i,n1,n2: longint; sum1,sum2: real; begin sum1: =0; sum2: =0; for i: =1 to n1 do begin sum1: =sum1+mas1[i]; end; for i: =1 to n2 do begin sum2: =sum2+mas2[i]; end; if sum1/n1>sum2/n2 then writeln (1) else if sum2/n2>sum1/n1 then writeln (2) else writeln (=) end; Ну вроде так… Хотя ничего не обещаю)
Знаете другой ответ?