Цикл з лічильником. Складання алгоритмів опрацювання величин у навчальному середовищі програмування, їх налагодження і виконання

Опрацювати матеріал , повторити

Завдання 1

var i, k: Integer; a, Sr: Double;
Begin
Sr := 0;
k:= 0; // лічильник додатних чисел
For i := 1 to 5 do begin
a := StrToFloat(InputBox(‘BBecти 5 чисел’, IntToStr(i), ‘0’));
If a > 0 Then
begin
k:= k + 1;
Sr := Sr + a;
end;
end;
Sr := Sr/k;
Edit1.text := FloatToStr(Sr);
end;

Пройти тест до 09.04.21 10.00 (одне проходженя)

корисні посилання: Лазарус 32 ,Лазарус 64, Про Inputbox