Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
Program mas;var i,k,sum:integer; a:array [1..1000] of integer;beginfor i:=1 to 1000 dobegin;readln(a[i]);if a[i]=0 then break;end;k:=0;sum:=0;for i:=1 to 1000 dobegin;sum:=sum+a[i];if (a[i] mod 2=0) and (a[i] mod 5=0) and (a[i]<>0) thenk:=k+1;end;writeln('summa= ',sum);writeln('kolichestvo=',k);readln;end.
<span>Укажите правильный вариант записи условия «х — двузначное число
(х>=10) И (х<100)
</span>
В компьютере больше функций,чем в калькуляторе
<em><u>В оперативке данные стираются сразу же после выключения питания.Под "долговременной памятью" я так понимаю ты имеешь ввиду память жёсткого диска,там данные хранятся независимо от того есть питание или нет.</u></em>