Дан целочисленный массив из 40 элементов
Добавлено: 15 янв 2014, 19:26
Дан целочисленный массив из 40 элементов , все элементы которого - целые числа в интервале от -500 до 500 .
Опишите напишите на русском языке или на одном из языков программирования алгоритм , который находит среднее арифметическое всех положительных элементов массива , которые кратны первому элементу( делятся нацело на первый элемент ) . Гарантируется что первый из элементов массива равен нулю .
Опишите напишите на русском языке или на одном из языков программирования алгоритм , который находит среднее арифметическое всех положительных элементов массива , которые кратны первому элементу( делятся нацело на первый элемент ) . Гарантируется что первый из элементов массива равен нулю .
Код: Выделить всё
const N=40;
var a:array [1..N] of integer;
i,x,y:integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
...
end.