Дан целочисленный массив из 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 a[i]:=random () - ; for i:=1 to N do write (a[i]:6); writeln; ... end.

Question

Варвара Наумова

Информатика

1 января, 21:28

Дан целочисленный массив из 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 a[i]:=random () - ; for i:=1 to N do write (a[i]:6); writeln; ... end.

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Zurg · Answer 1

program avrg;

const N = 30;

var a: array [1 ... N] of integer;

i, y: integer; / /индекс массива и счетчик чисел, оканчивающихся на 5

s: real; / / сумма чисел, оканчивающихся на 5

begin

for i: = 1 to N do a[i]: = random (2001) - 1000;

s:=0;

for i:=1 to N do

begin

write (a[i] : 5);

if (a[i] mod 10 = 5) or (a[i] mod 10 = - 5) then

begin

s: = s + a[i];

y: = y + 1;

end

end;

writeln ();

if y > 0 then writeln (s / y) else writeln ('Нет цифр, оканчивающихся на 5')

end.