Найти среднее арифметическое элементов массива А(23) кратных пяти, т.е., удовлетворяющих условию: INT(A(I)/5)*5=A(I).

[sychevanasya]

Найти среднее арифметическое элементов массива А(23) кратных пяти, т.е.,
удовлетворяющих условию: INT(A(I)/5)*5=A(I).

[newerow1989]

var a:array[1..23] of integer;
    i,s,c:integer;
begin
   Randomize;
   For i:=1 to 23 do
   begin
      a[i]:=Random(21);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   s:=0;
   c:=0;
   For i:=1 to 23 do
      If i mod 5=0 then
      begin
         s:=s+a[i];
         c:=c+1;
      end;
   Writeln(s/c:5:5);
   Readln;
end.

[ViktorR]

Слегка поправлю, поскольку есть пара не стыковок:
Код:

If i mod 5=0 then

заменить на:

If (a[i] mod 5 = 0) then
...

И поскольку генерируются целые числа от 0 до 20, то вывод

Writeln(s/c:5:5);

лучше поправить. Так, для вывода 3-х знаков после запятой, предполагаю, что в данном случае достаточно, можно написать:

Writeln(s/c:6:3);

6 - это число позиций, которое займет выводимое число. В общем случае сюда входит и знак, и точка и общее число цифр (целой и дробной частей).


Как-то так, ...