Задание:
Дан целочисленный массив из 40 элементов, все элементы которого-целые числа в интервале от -500 до 500. Опишите на русском или на одном из языковпрограммирования алгоритм, который находит среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент)
Решение:
var sum,n,i: integer; m: array [1… 40] of integer; beginrandomize; writeln ('Введите 1-ый элемент массива: '); read (m[1]); writeln ('Массив: '); write (m[1]: 6); for i: =2 to 40 do begin m[i]: =random (1001) -500; write (m[i]: 6); end; for i: =1 to 40 do if (m[i] > 0) and (m[i] mod m[1]=0) then begin sum: =sum+m[i]; inc (n); end; writeln; writeln ('Среднее арифметическое=',sum/n); end.
Знаете другой ответ?