Var i,sum: Integer;
a:array[1..10] of Integer;
begin
sum:=0;
Randomize();
for i:=1 to 10 do
begin
a[i]:=random(20);
if(a[i]<15) then sum:=sum +a[i];
write(' ',a[i]);
end;
writeln();
writeln('сумма элементов < 15= ',sum);
end.
1 символ = 8 бит = 1 байт
150*40*60=360000 (символов/байт)
это ответ и есть, но можно для удобства перевести в килобайты
1 килобайт = 1024 байт
360000/1024=351,5625
Ответ: 360000 байт или 351,5625 килобайт
Какой нужен код?
если никакой то кисд или 5 10 19 12