Пользователь вводит числа до тех пор, пока она в сумме не дадут число, кратное трем и...

Question

Пользователь вводит числа до тех пор, пока она в сумме не дадут число, кратное трем и оканчивающиеся на 3. После чего выводится сообщение о выигрыше в размере среднего арифметического введенных чисел.

Решить с помощью динамического массива, в Paskal.

Comments

А зачем здесь вообще массив, если после ввода элементы массива не используются?

Answer 1

Var a,s,k: integer;
    sr: real;
begin
  k:=0; s:=0;
  repeat
    readln(a);
    s:=s+a;
    k:=k+1;
  until (s mod 10 = 3) and (s mod 3 = 0);
  sr:=round((s/k)*100)/100;
  writeln('Выигрыш: ',sr);
end.

17
28
10
8
Выигрыш: 15.75