Ежедневно уровень радиации в зоне заражения уменьшается на 3% к предыдущему дню. постройте таблицу и исследуйте, через сколько дней уровень радиации упадет до безопасного значения 10 единиц. начальное значение задавайте от 100 до 1000 единиц.
пока i<=50 делай нц если a[i]>max то нц max:=a[i]; n_max:=i; кц если a[i]<min то нц min:=a[i]; n_min:=i; кц если (i mod 2)==0 то sum:=sum+a[i]; k:=k+1; кц
srednee_znachenie:=sum/k;
//
var a:array(10..50) of integer; max,min,n_min,n_max,k,i,sum:integer; sr:float;
begin max:=a[1]; min:=a[1];
for i:=10 to 50 do begin if a[i]>max then begin max:=a[i]; n_max:=i; end; if a[i]<min then begin min:=a[i] n_min:=i; end; if ((i mod 2)=0) then begin k:=k+1; sum:=a[i]+sum; end; end; end;
