Дан целочисленный массив из 30 элементов. элементы - вопрос №519444730 от soloveyandrey3 12.06.2021 22:18

Question

Информатика: Дан целочисленный массив из 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. запрещено использовать переменные , не описанные ниже, но разрешено не

soloveyandrey3 · Answer

Var
a:array[1..30]of integer;
i,x,y,n:integer;
s:real;
begin
for i:=1 to 30 do readln(a[i]);
for i:=1 to 30 do
begin
if a[i]mod 10=5
then begin
y:=y+a[i];
inc(x);
end;
end;
write(y/x:0:0);
readln;
end.