var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(10,-20,20);
a.Println(',');
var m:=a.Max;
for var i:=0 to 9 do
if a[i]=m then a[i]:=0;
a.Println(',')
end.
Тестовое решение:
-14,-7,<em>15</em>,-7,-11,7,4,1,-20,-15
-14,-7,<em>0</em>,-7,-11,7,4,1,-20,-15
Валя, Вася,Вова,вода,волк,Наташа,панамка ананас
Перевод из бит в мегабайт в с :
80*10^20 бит в секунду = 0.00001 мегабайт в секунду
перевод 1 м 20с в секунды : 80с
находим файл : 80с * 0.00001 мегабайт в секунду = 0,0008 мегабайт