информатика
ОЧЕНЬ СРОЧНО!!! ПОМОГИТЕ! Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -1000 до 1000. Опишите на языке программирования (паскаль) алгоритм, который находит и выводит среднее арифметическое всех элементов массива , оканчивающихся цифрой 5. Гарантируется, что хотя бы один такой элемент в массиве есть. const N=30; Var a: array [1..N] of integer; i,x,y: integer; s: real; begin for i:=1 to N do readln(a[i]); ..... end. Запрещено использовать переменные , не описанные ниже, но разрешено не использовать часть из них. Помогите, пожалуйста!!!!!!!! Только не пишите мудрено, т.к. я в 10 классе, мне нужна такая нормальная адекватная программа)))
Оставить ответОтвет №1
Const N=30;
Var a: array [1..N] of integer;
i,x,y: integer;s: real;
begin
for i:=1 to N do readln(a[i]);
s:=0; x:=0;
for i:=1 to N do
if abs(a[i]) mod 10 = 5 then begin x:=x+1; s:=s+a[i]; end;
writeln('Среднее = ',s/x);
end.
Знаете ответ?