Информатика

Борисыч

30 ноября, 05:47

Имеется задание и код, немного отличающийся от нужного по заданию. Необходимо отредактировать код.

Задание:

В поле ввода edtVvod вводится строка. Необходимо дописать процедуру обработки нажатия кнопки btnRun, которая выведет в надпись lblVyvod среднеарифметическое встретившихся четных цифр, стоящих на нечетных позициях во введённой строке, если таковых нет, то результат 0.

(Вы должны написать только текст, который должен быть вставлен вместо многоточия)

procedure TForm1. btnRunClick (Sender: TObject);

var s:string; sum, x, i, k, c:integer; sa:real;

begin

s:=edtVvod. Text;

...

lblVyvod. Caption:=FloatToStr (sa);

end;

Код:

sum:=0;

c:=0;

sa:=10;

for i:=1 to length (s) do

begin

val (s[i], x, k);

if (k=0) and (x mod 100) and (x>sum) then sum:=x;

if (k=0) and (x mod 100) and (x c:=c+1;

end;

if c0 then sa:=sum/sa else sa:=0;